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A L'ATTENTION 
DE NOS LECTEURS ! 

Ce numéro de CPC esi un hors-série ne com- 
portant que des listings. Il paraît tous les deux 
mois dans les kiosques et il est offert aux abon- 
nés. Ne confonde/ pas avec le CPC mensuel ! 
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AGENDA 




Agenda vous propose 
la gestion de votre 
emploi du temps. 
Combien de fois n'avez 
vous pas pensé : 
j'aurais dû marquer 
cela quelque part... 
Seulement, depuis que 
vous utilisez votre 
ordinateur, plus 
question de toucher un 
morceau de papier ! 
Alors voici la solution 
pour ne rien perdre sur 
un CPC. 




Un fichier généré par Agenda (.AGD) est consti- 
tué de trente et une fiches à seize champs pour cha- 
que journée. Le fichier représente ainsi un mois de 
données. 

Possibilité vous est offerte, en sauvegardant divers 
fichiers, d'établir votre Agenda annuel (ex: JAN- 
VIER.AGD, FEVR1&R.ADG, etc). 
Dans le premier menu, vous devrez définir vos pré 
férences : changer les couleurs de votre écran, déci 
der du jeu de caractères que vous utiliserez parm: 
5 possibles ; ceci afin de personnaliser votre travail. 
C'est de là que vous accéderez au second menu qui 
sera le programme principal. 
Agenda est muni de toutes les directives et des mes- 
sages d'erreurs afin de progresser dans le program- 
me. 

Attention : pour les utilisateurs de 464, il faut enle- 
ver l'instruction CLEAR 1NPUT à la ligne 580 pour 
que tout fonctionne très bien. 



LISTING 1 

10 'Le 01/12/87 - T.BAL1NT >LA 

20 'Prog. "A6ENDA.BAS" VERSION 2.0 >LB 

(9Ko> 
30 CALl S.BB4E >6E 

40 CLS:M0DE 2:DEFINT t-2 >TZ 

50 BORDER 1:INK 0,1: INK 1,1 >UD 

60 M0VE 0,1:DRAH 0,398;DRAN 439,398 >YH 
:DRAK 639, 1:DRAH 0,1 
70 MOVE 4,390:DRAK 636, 390: DRAW 636 >RH 
,362:DRAH 4,362;DRAH 4,390:MDVE 4,8 
:DRAN 4,328:DRAtï 13B.328: DRAW 138,8 
:DRAM 4,8:M0VE 142,328:DRAH 636,328 
:Bf<m 636,58:DRAK 142,58:DRA« 142,3 
28:M0VE 142,54:DRAH 636,54:DRAN 636 
,8:DRAH 142,8:DRAH 142,54 
80 LXATE 2,2:PRINT"» • t A S E >HH 
N D A » « * version 2.0 

"+CHR$<164>+" T.BALINT -Décembre 1 
987-" 

90 HIND0Wll,34,79,6,21:PAPERtl,0:PE >KE 
Ntl, 1:»IND0NI2,:, 15,7,24:l<INDOttt3, 1 
9,79,23,24 

100 b=t:p=l:c=24:B0RDER b: INK 0,p:I >HA 
NK l,c 

110 CLS#2:CLSI3:LOCATE 3,25:PRINT" >UD 
B1!€M:";H1MEM:M0VE 16,0:DRAH 128,0 
120 DATA Couleur,Ecnture,Nenu,Noti >UG 
ce,Quitter 

130 RESTORE 120:no=5 >PX 

140 GOSUB 190 >HE 



150 GOSUB 240 >HB 

160 ON k GOSUB 340,450,560,1640,600 >AE 

170 GOTO 110 >YG 

180 ' AFFICHAGE MENU — >RK 

190 tx*="";F0R j=l TO no >RB 

200 READ o»:tx«=tx$+LEFT*(o*,l) >ZH 

210 L0CATEI2,4,)»2+8-no:PRINT»2,"- >6N 
■jO» 

220 NEXT: RETURN >M¥ 

230 ■ REPONSE MENU - >RF 

240 tx$=UPPER*(tx$):lt=LEN<tx$> >BA 

250PRINTI3," Réponse!"; >¥H 

260 FOR i=l T0 lt-1 m 

270 PRINT#3,MID*(tx$,l,ll;",";:NEXT >DX 

2B0 PRINT»3,RIGHT$(tx$,l)j" ] "jO* >MT 
$(154>;CHR»(243>;" "jCHR»(207) 
290 r»="":HHILE r*="";r$=INKEY«:tEN >EB 
D 

300 r»=UPPER»(r$):k=INSTR(tx*,r$) >CP 
310 IF k=0 THEN PRINT CHR$(7);:G0TD >FQ 
290 
320 RETURN >ZA 

330 ' COULEURS - >R6 

340 CLS#2:CLS#3:a«=" COULEURS" :G0SU >¥X 

B 640: RESTORE 350 

350 DATA "- Bordure","- Papier","- >FN 

Crayon","- Retour" 

360 GOSUB 660 >JA 

370PRINTt3," Réponse [ B,P,C,RETU >ER 

RN 3 "jCHR*(154>jCHR«l243>;" "jCHRJ 

(207) 

380 S0SUB 650 >JB 



390 IF r»="B" THEN cl=b*l:60SUB 430 >RA 
:b=cl: BORDER b 

400 IF r»="P" THEN cl=p+l;GQSUB 430 >QX 
:p=cl: INK 0,p 

âin ip r$="C" THEN cl^c+liGUSUB 430 >PB 
:c=cl:INK l,c 

420 IF r$=CHR$(13) THEN RETURN ELSE >GT 
FOR t=0 T0 50:NEXT:G0T0 380 
430 IF cl=27 THEN cl=0:RETURN ELSE >KE 
RETURN 

440 ' ECRITURES - >RJ 

450 CLS#2:CLS#3:a*=" ECRITURE":S0SU >YK 

B 640: RESTORE 460 

460 DATA "- Alpha 1","- Alpha 2", >KP 

"- Alpha 3","- Standard" 

470 60SUB 660 >JC 

480 PR1NTI3," Réponse [ 1,2, 3, S ] >MR 

•;CHR$(154);CHR$<243>;" ":CHR$(207) 



490 GOSUB 650 

500 IF r«="l" THEN 680 

510 IF r»="2" THEN 1000 

520 IF r$="3" THEN 1320 



■JD 
NN 
, PV 

■PC 



530 IF R$="S" THEN SYMBOL AFTER 256 >KV 

: RETURN 

540 GOTO 490 >ZJ 

550 ' MENU — >TA 

560 CLS»2:CLS#3:PRINTt3," Veuillez >YY 
patiente:" 

570 FOR t=l T0 1000: NEXT >RG 
580 CLEAR:CLEAR INPUT:CLS»3:CHAIN"A >XX 
GENDA1 .BAS", 70 

590 ' SOUS/PROGRAMMES - >TE 

600 CLS#2:CLS#3:PRINT#3," En êtes- >BM 

vous sur (et ! ! !" 

610 tx*="0N": GOSUB 290 >QD 

620 IF k=l THEN 630 ELSE RETURN >YD 

630 CALL >SH 

640 L0CATE»2,4,2:PRINTt2,a»:RETURN >DQ 

650 r«="":HHILE r»="":r$=UPPER*(INK >YN 

EY»it€ND:RETURN 

660 FOR n=5 T0 11 STEP 2:READ a*:L0 >MJ 

CATE»2,4,n+l:PRINTI2,a»:NEXT:RETURN 



670 '- 



REDEFINITION 



>Tt 



680 SYMBX AFTER 256: SYMBOL AFTER 4 >EK 

7 

690 SYMBOL 48,30,33,33,33,33,33,30: >DJ 

SYMBOL 49,4,12,4,4,4,4,14 

700 SYMBX 50, 30, 33, 2, 4, 8, 16, 63: SYM >DN 

BOL 51,30,33,1,14,1,33,30 

710 SYMBOL 52,6,10,18,34,63,2,2:SYM >DZ 

BOL 53,63,32,62,1,1,33,30 

720 SYMBX 54,4,8, 16,62,33,33,30:SY >CE 

MBX 55,63,1,2,4,8,16,32 

730 SYMBX 56,30,33,33,30,33,33,30: >FZ 

SYMBX 57,30,33,33,31,2,4,8 



740 SYNBX 65, 0,28,34, 34, 62,34, 34:S 
YMBOL 97,0,28,34,34,62,34,34 
750 SYNBOL 66,0,124,34,60,34,34,124 
:SYMBOL 98,0,124,34,60,34,34,124 
760 SYMBX 67,0,28,34,32,32,34,28:5 
YMBOL 99,0,28,34,32,32,34,28 
770 SYMBOL 68,0,124,34,34,34,34,124 
:SYMBOL 100,0,124,34,34,34,34,124 
780 SYNBX 69,0, 62,32, 60,32,32,62:S 
YMBX 101,0,62,32,60,32,32,62 
790 SYNBOL 70,0, 62,32, 60, 32,32,32:3 
YMBX 102,0,62,32,60,32,32,32 
800 SYNBOL 71,0,28,34,32,46,34,28:5 
YNBOL 103,0,28,34,32,46,34,28 
810 SYNBOL 72,0,34,34,34,62,34,34:5 
YMBOL 104,0,34,34,34,62,34,34 
820 SYNBOL 73,0,62,8,8,8,8,62:SYNB0 
L 105,0,62,8,8,8,8,62 
830 SYNBOL 74,0,30,4,4,4, 36,24:SYNB 
X 106,0,30,4,4,4,36,24 
840 SYNBOL 75, 0,34,36,56, 56, 36,34:S 
YNBOL 107,0,34,36,56,56,36,34 
850 SYNBOL 76, 0,32,32,32, 32,32,62:S 
YNBOL 108,0,32,32,32,32,32,62 
860 SYNBOL 77,0,34,54, 42,34,34, 34:S 
YMBOL 109,0,34,54,42,34,34,34 
870 SYNBOL 78,0,34,50, 42,3B,34,34:S 
YNBOL 110,0,34,50,42,38,34,34 
880 SYNBOL 79,0,28,34,34,34,34,28:5 
YMBOL 111,0,28,34,34,34,34,28 
890 SYMBX 80,0,60, 34,34,60, 32,32:S 
YNBOL 112,0,60,34,34,60,32,32 
900 SYNBX 81,0,28,34,34,42, 36,26:S 
YNBX 113,0,28,34,34,42,36,26 
910 SYNBX 82,0,60,34, 34,60,36,34:S 
YNBX 114,0,60,34,34,60,36,34 
920 SYNBX 83,0,28,34,48,6,34,28:SY 
MBX 115,0,28,34,48,6,34,28 
930 SYNBX 84,0,62,8,8,8,8,8:SYMBX 
116,0,62,8,8,8,8,8 
940 SYNBX 85, 0,34,34, 34,34,34, 28:S 
YMBX 117,0,34,34,34,34,34,28 
950 SYNBX B6,0,34,34,34,34,20,8:SY 
HBX 118,0,34,34,34,34,20,8 
960 SYNBX 87,0,34,34,34,42,54,34:3 
YNBX 119,0,34,34,34,42,54,34 
970 SYNBX 88, 0,66, 36, 24, 24, 36, 66: S 
YNBOL 120,0,66,36,24,24,36,66 
980 SYNBX B9, 0,66, 36, 24, 16, 32, 64: S 
YMBX 121,0,66,36,24,16,32,64 
990 SYNBX 90,0,62,4,8, 16,32,62:SYN 
BX 122,0,62,4,8, 16,32,62:RETURN 
1000 SYMBX AFTER 256: SYNBX AFTER 
47 

1010 SYMBX 48,30,33,33,33,33,33,30 
: SYMBOL 49,4,12,4,4,4,4,14 
1020 SYMBX 50,30,33,2,4, 8, 16,63:SY 



;GN 



V 



;HD 



>EH 



>EQ 



MBX 51,30,33,1,14,1,33,30 

1030 SYMBOL 52,6,10, 18, 34, 63, 2,2: SY 

MBOL 53,63,32,62,1,1,33,30 

1040 SYNBX 54,4,8,16,6.2,33,33,30:3 

YNBX 55,63,1,2,4,8,16,32 

1050 SYMBOL 56,30,33,33,30,33,33,30 

:SYNBX 57,30,33,33,31,2,4,8 

1060 SYMBX 65,124,130,194,254,194, 

194, 194:SYMB0L 97, 124, 130, 194,254, 1 

94,194,194 

1070 SYMBX 66,248,132,196,252,194, 

194,252:SYNBX 98,248,132,196,252,1 

94,194,252 

1080 SYMBOL 67,124,130,192,192,192, 

194, 124:SYHB0L 99, 124, 130, 192, 192, 1 

92,194,124 

1090 SYNBOL 68,248,132,194,194,194, 

196,248:SYNB0L 100,248,132,194,194, 

194,196,248 

1100 SYMBX 69,254,130,192,248,192, 

194,254:SYNBX 101,254,130,192,248, 

192,194,254 

1110 SYMBX 70,254,130,192,248,192, 

192,192:SYNBX 102,254,130,192,248, 

192, 192, 192 

1120 SYMBOL 71,124,130,192,206,194, 

194, 124: SYMBOL 103,124,130,192,206, 

194,194,124 

1130 SYMBOL 72,130,130,194,254,194, 

194,194:SYMBX 104,130,130,194,254, 

194, 194, 194 

1140 SYMBOL 73,124,16,24,24,24,24,1 

24:SYMBX 105,124,16,24,24,24,24,12 

4 

..«-, s. rots. . .,.-□,-,-.,.. .,*■!, .u-, 1 

12: SYMBOL 106, 126, 8, 24, 24, 24, 152, 1 1 

2 

1160 SYMBX 75,134,140,216,240,216, 

204, 198: SYMBOL 107,134,140,216,240, 

216,204,198 

1170 SYMBX 76,128,128,192,192,192, 

194,254:SYMBX 108,128,128,192,192, 

192,194,254 

1180 SYMBOL 77,130,198,238,250,210, 

194,194:SYMBX 109,130,198,238,250, 

210,194,194 

1190 SYNBX 78,134,194,226,242,218, 

2O6,230:SYMBX 110,134,194,226,242, 

218,206,230 

1200 SYMBX 79,124,130,194,194,194, 

226, 124:SYNB0L 11 1, 124, 130, 194, 194, 

194,226,124 

1210 SYNBX 80,252,130,194,252,192, 

192,224:SYMBX 112,252,130,194,252, 

192,192,224 

1220 SYMBX 81,124,130,194,194,202, 

22B,122:SYMBX 113,124,130,194,194, 



A' 



202,228,122 

1230 SYMBOL 82,252,130,194,252,216, 

204,198: SYNBOL 114,252,130,194,252, 

216,204,198 

1240 SYNBOL 83,60,98,96,60,134,134, 

124:SYNB0L 115,60,98,96,60,134,134, 

124 

1250 SYNBOL 84,254,146,24,24,24,24, 

24:SYMB0L 116,254,146,24,24,24,24,2 

4 

1260 SYMBOL 85,130,130,194,194,194, 

226, 124:SYMB0L 117, 130, 130, 194, 194, 

194,226,124 

1270 SYNBOL 86,134,130,194,194,100, 

56, 16:SYMBX 118, 134, 130, 194, 194, 10 

0,56,16 

1280 SYMBOL 87,146,146,218,218,218, 

218,108:SYMB0L 119,146,146,218,218, 

218,218,108 

1290 SYMBX 88,198,108,56,56,108.19 

8, 130: SYNBOL 120, 198, 108,56,56, 108, 

198,130 

1300 SYMBOL 89,130,198,108,56,48,96 

,192:SYMB0L 121,130,198,108,56,48,9 

6,192 

1310 SYMBX 90,254,134,12,24,48,98. 

254: SYNBX 122, 254, 134, 12, 24, 48,98, 

254:RETURN 

1320 SYMBX AFTER 256: SYMBX AFTER 

47 

1330 SYMBOL 48,56,198,206,214,230,1 

98,56:SYMBX 49,24,24,24,0,24,24,24 

1340 SYMBOL 50,120,6,6,56,192,192,6 

0:SYMBX 51,248,6,6,120,6,6,248 

1350 SYMBX 52,204,204,204,50,12,12 

,12:SYNBX 53,60,192,192,6,6,120 

1360 SYMBX 54,60,192,192,56,198,19 

8,56:SYM6X 55,248,6,6,0,6,6,6 

1370 SYMBX 56,56,198,198,56,198,19 

8,56:SYMBX 57,56,198,198,56,6,6,12 



1380 SYMBX 65,126,226,226,250,238, 

226,226:SYMBX 97,126,226,226,250,2 

38,226,226 

1390 SYMBX 66,124,226,226,252,226, 

226,252:SYMB0L 98,124,226,226,252,2 

26,226,252 

1400 SYMBX 67,56,230,230,224,224,2 

30,120:SYMBX 99,56,230,230,224,224 

,230,120 

1410 SYMBOL 68,252,230,230,230,230, 

230,252:SYMBX 100,252,230,230,230, 

230,230,252 

1420 SYMBX 69,252,226,224,248,224, 

226, 252: SYMBX 101,252,226,224,248, 

224,226,252 



FE 
>RA 

>LZ 

,ML 
KP 



EF 



1430 SYMBOL 70, 
224, 224: SYMBOL 
248,224,224 
1440 SYMBOL 71, 
230, 254: SYMBOL 
238,230,254 
1450 SYMBOL 72 
230, 230: SYMBOL 
238,230,230 
1460 SYMBOL 73, 
:SYMBOL 105,56, 
1470 SYMBOL 74, 
: SYMBOL 106,60 
1480 SYMBOL 75, 
228, 230: SYMBOL 
252,228,230 
1490 SYMBOL 76, 
230, 252: SYMBOL 
224,230,252 
1500 SYMBOL 77, 
226, 226: SYMBOL 
234,226,226 
1510 SYMBOL 78, 
238, 230: SYMBOL 
254,238,230 
1520 SYMBOL 79, 
230,254:SYMB0L 
226,230,254 
1530 SYMBOL 80, 
224, 224: SYMBOL 
224,224,224 
1540 SYMBOL 81, 
236, 250: SYMBOL 
238,236,250 
1550 SYMBOL 82, 
228, 230: SYMBOL 
252,228,230 
1560 SYMBOL 83. 
98, 252: SYMBOL 1 
0,198,252 
1570 SYMBOL 84 
,48: SYMBOL 116, 
,48 

15B0 SYMBOL 85, 
226, 254: SYMBOL 
226,226,254 
1590 SYMBOL 86, 
28:SYMB0L 118,2 



126,230,238,224,248, 
102,126,230,238,224, 

126,230,238,224,238, 
103,126,230,238,224, 

230,230,230,246,238, 
104,230,230,230,246, 

56,52,48,48,48,52,56 

52,48,48,48,52,56 

60,102,6,6,6,230,254 

102,6,6,6,230,254 

230,230,236,248,252, 

107,230,230,236,248, 

224,224,224,224,224, 
108,224,224,224,224, 

226,226,246,254,234, : 
109,226,226,246,254, 

230,230,242,250,254, : 
110,230,230,242,250, 

254,230,226,226,226, : 
111,254,230,226,226, 

254,230,226,254,224, : 
112,254,230,226,254, 

126,230,230,230,238, . 
113,126,230,230,230, 

124,230,230,238,252, 
114,124,230,230,238, 

126,230,224,124,30,1 
15,126,230,224,124,3 

54,254,182,48,48,48 : 
254,254,182,48,48,48 

230,230,226,226,226, : 
117,230,230,226,226, 

230,102,98,98,98,54, : 
10,102,98,98,98,54,2 



PQ 



1600 SYMBOL 87,194,194,198,214,254, 

238, 19B:SYMB0L 119, 194, 194, 198, 214, 

254,238,198 

1610 SYMBOL 88,198,198,254,56,254,1 

98,198:SYMB0L 120,198,198,254,56,25 

4, 198, 198 

1620 SYMBOL 89,198,198,254,56,16,16 

,16:SYNB0L 121,198,198,254,56,16,16 



« 



,16 

1630 SYMBOL 90,254,198,6,28,248,226 >KN 

,254:SYMB0L 122,254,198,6,28,248,22 

6,254:RETURN 

1640 ' NOTICE - >YD 

1650 CLSt2:CLSt3:PRINTtl," «SE >FJ 
N D A vous propose la gestion d 
s votre emploi du temps . Là t 
aille d' un fichier est constit 
uee de 31 fiches a 16 champs cha 
cune.Le fichier représente donc un 

mois de données." 

1660 PRINTtl," Possibilité vous >BC 
est offerte , en sauve- gardant 
plusieurs fichiers , d établir un 
agenda a 1 année. UANVIER,FEVRIER 
,etc..l." 

1670 PRINTtl," AGENDA est « ,>TB 
uni d un nodule réglage Cette op 
tion vous permet de définir les 
couleurs et de choisir votre ecri 
ture, créant ainsi une mise en page 

personnelle." 
1680 PRINTtl," Lors du chargement :TA 

d' un fichier , il est recommand 

e de consulter le catalogue pour le 

bon fonctionnement du programme. L 

es fichiers crées se reconnaissent 

au suffixe l.flGD)." 

1690 CLSt3:PR!NTt3," Une touche S >PN 
.V.P":CALL MB06:CLStl:CLSt3 
1700 PRINTtl," RECOMMANDATIONS :" >EF 

1710 PRINTtl," Afin de bien struc >XL 
turer le fichier, il est souhaitab 
le d ' entrer les données dans 

l'ordre. Pour cela, un index est 
numérote de 1 a 31 (du 1er au 31em 
e jour)." 

1720 PRINTtl," Cette index servi >XJ 
ra de critère de recher- che lors 
gue vous voudre: VOIR- MODIFIER- 

SUPPRIMER une fiche. Exemple:" 
1730 PRINTtl," d' index 3 correspo >TQ 
ndra au 3 du mois de... 1 " 
1740 PRINTtl:PR!NTtl," A6END >UR 
A est muni, en outre, de toutes 1 
es directives et messages d erreurs 
afin de progresser dans le progra 
MM." 
1750 PRINTtllPRINTtl," La touche >LT 



virgule ( , ) est a proscrire 
ors de l'édition du fichier." 
1760 CLSt3:PRINTI3," Une touche 
.V.P pour le retour MENU":CALL fc 
06 
1770 CLStl:CLSt3:RETURN 



'■G! 



A 



LISTING 2 

10 Le 05/12/87 - T.BALINT >LA 
20 'Prog. "AGENDA1.BAS" VERSION 2. >LB 
(9ko) LISTING 2 

30 CLSto:PRINT"Pas d'accès direct d >0A 
ans ce programme ..." 
40 PRINT"Je vous renvoie au program >LN 
me (AGENDA .6AS>" 

50 L0CATE 20,6:PRINT"Veuille: patie >NF 
nter ! M " 

60 FOR x=0 T0 1500:NEXT:CHA1N"AGEND >MA 
A .BAS" 

70 DIM ag*(31,16):G0SUB 2170 )VQ 
BO 0PEN0UT"b":MEM0RY HIMEM-1: CLDSE0 >XE 
UT:DEF1NT a~: 

90 NIND0Wtl,34,79,6,21:PAPERtl,l:PE >UF 
N#l,0:CLStl:WIND0Wt2,2,16,?,24:WIND 
0Wt3, 19,79,23,24 

100 L0CATE 2,4:PR1NT CHR*(24);" >VM 
MENU ":L0CATE 19,4:PRINT" No 
":L0CATE 24,4:PRINT" Champs ":L0CA 
TE 35,4:PRINT" Plannin 

g journée ";CHR»(24! 

110 GOTO 180 >YH 

120 MESSAGES CLIGNOTANTS - >RD 

130 CLSt3:FDR x=l TO 3:L0CATEt3,3,l >CU 

:PRINTt3,er$:G0SUB 160 

140 L0CATEt3,3,l:PRINTt3,STRING$(49 ;BC 

," "hSOSUB 160:NEXT 

150 FOR t=l TO 300:NEXT:CLSt3:RETUR >EF 

N 

160 FOR t=l TO 1000:NEXT:RETURN >AE 

170 ' MENU PRINCIPAL - >RJ 

180 CLStl:CLSt3 >CK 

190 DATA "A -charger", "B -sauvegard >8K 
er",,"C -entrer", "D -modifier", "E - 
supprimer", "F -voir", "G -quitter",, 
"H -catalogue","! -vider", "J -effac 
er",,"RETURN -retour", "TAB -info 
s" 

200 RESTORE 190:F0R n=0 TO 14:READ >TH 
al: L0CATEt2, 1 , n+1 : PRINTI2, a$: NEXT 
210 LOCATE 3,25:PRINT" HIMEM:";HIME >DJ 
M:M0VE 16,0:DFIAW 128,0 
220 GOSUB 390:PRINT CHR*<7) ; >»Y 
230PRINT13," Votre choix ?" >BL 
240 a$=INKEY*:IF a»="" THEN 240 >XU 
250 IF INKEY(69)=0 THEN 640 >UQ 
260 IF INKEY (541=0 THEN 760 >UN 
270 IF INKEY (621=0 THEN 890 >UT 
280 IF INKEY (61 1=0 THEN 1060 >VF 
290 IF INKEY (581=0 THEN 1250 >VP 
300 IF INKEY(53)=0 THEN 1440 >VB 
310 IF INKEY(52)=0 THEN 1610 >VA 



4 Bh - 


6 lOtl - 


12h - 1 


14h - 15 


"13 17h 


15 19ti - 



;vi_ 
>ZC 
>TB 

.•NR 



>YE 



>R6 



:>YI- 



>FD 



320 IF INKEY(44)=0 THEN 1700 >VC 

330 IF INKEY (351=0 THEN 1880 >VN 

340 IF INKEY (451=0 THEN 1980 >VR 

350 IF INKEY (1B1=0 OR INKEY (61=0 TH. >HX 

EN 2120 

360 IF INKEY(68)=0 THEN 2400 

370 60T0 240 

380 ' MENU FICHIER - 

390 DATA " 1 » Inde* :"," 2 
Jour :"," 3 Date :",' 
9h:"," 5 9h - 10fi:"," 
llh:V 7 llh - 12h:"," I 
3h:"," 9 13h - 14h:","10 
h:", '11 15h - 16h:" 
400 DATA "12 16h - 17h:" 
- iâh:-,-i4 ISh - Ivh:",' 
20h:","16 Notes :" 
410 RESTORE 390:FOR n=l TO 16:READ 
a»:LXATE 20,n+5:PRINT a»:NEXT:RETU 
RN 

420 ' SOUS/PROGRAMMES - 

430 er*="Pas de données en seeoire 

iBOSUB 130:RETURN 

440 CLSI3: INPUT#3, " Jour (1er <=> 

31eme) "; index* 

450 bcl=l 

460 IF ag*(bçl,l)=index» THEN RETUR >EJ 

N 

470 IF bcKctr THEN bcl=bc 1+1: GOTO >FP 

460 

480 er$="Journee non repertoriee":G >FJ 

OSUB 130:BOT0 110 

490 SOSUB 510:GOT0 650 >QU 

500 60SUB 510:GOTO 780 >QL 

510 er*="8 caractères seulement !!" >F6 

:GQGUB 130:RETURN 

520 CLS#3:PRINT*3," Introduire dis >PV 

quette, puis RETURN " 

530 GOSUB 620 >HF 

540 IF r»=CHR«(13l THEN 560 >TD 

550 60SUB 580: GOTO 530 >QR 

560 RETURN >ZG 

570 PRINT*3," Réponse [ RETURN,S,P >RN 

,M ] "jCHR»(154);CHR»(243>;" ";CHR$ 

(207): RETURN 

580 IF r*<>"0" OR r*«"N" THEN PRIN >W 

T CHR*(7I;:RETURN 

590 GOSUB 600: GOTO 110 >OG 

600 er»="Retour MENU":G08UB 130:RET >KT 

URN 

610 CLSt3:NIND0MO,2O,79,6,21:aS»0 >EF 

:G0SUB 1870:CAT:RETURN 

620 r$=":NHILE r$="":r»=UPPER*(INK >YK 

EY*):KEND:RETURN 

630 ' CHARGER - >RK 

640 GOSUB 520:GOSUB 610 >RB 
650 INPUT#3," No« du fichier a cha >YL 



rger "(fie* 

660 IF fic«=" THEN 2100 

670 IF LEN(fic*>>8 THEN 490 

680 0PEN1N fic«+".A6D" 

690 INP0T«9,ctr 

700 FOR ll=l TO ctr 

710 FOR i2=l TO 16 

720 INPUT#9,ag«(il,i2) 

730 NEXT;NEXT:CLOSEIN 

740 eri="Charge»ent ternine":60SUB 

130:60T0 2100 

750 ' SAUVEGARDER - 

760 IF ctr=0 THEN 60SUB 430: GOTO 11 



770 GOSUB 520:GOSUB 610 

780 INPUT#3," Nm du fichier a sau : 

vegarder ";fic$ 

790 IF fic»="' THEN 2100 

800 IF LEN(fic*)>8 THEN 500 

810 OPENOUT fic**".A6D" 

820 PRlNTI9,ctr 

830 FOR U=l TO ctr 

840 FOR i2=l TO 16 

850 PRINT#9,ag»(il,i2> 

860 NEXT:NEXT:CLOSEOUT 

870 er*="Sauve9arde termnee":GOSUB 1 

130: GOTO 2100 

BBO ' ENTRER — 

890 CLS»3:PRINT CHR*<7); 

900 ctr=ctr+l:FOR i=l TO 16 

910 INPUTI1," ",agS(ctr,i):NEXT 

920 CLS#3:PRINT#3," Données correc 

tes ? [ 0/N 1 " 

930 GOSUB 620 

940 IF r*="0" THEN 980 

950 IF r*="N" THEN 970 

960 GOSUB 580: GOTO 930 

970 ctr=ctr-l;CLS#l:CLS#3:G0T0 900 

980 CLSI3:G0SUB 150:PRINT»3," D'au ; 

très entrées ? [ 0/N ] " 

990 GOSUB 620 

1000 IF r*="0" THEN 1030 

1010 IF r*="N" THEN 1040 

1020 GOSUB 580:G0T0 990 

1030 CLS#1:CLS#3:G0T0 900 

1040 CLS»1:G0T0 110 

1050 ' MODIFIER - 

1060 IF ctr=0 THEN GOSUB 430: GOTO 1 

10 

1070 CLSI2:CLS#3:LOCATE#2,4,2:PRINT : 

12," MODIFIER" 

1080 DATA "- Retour","- Suivant", "- 

Précèdent","- Modifier" 
1090 RESTORE 1080:F0R n=4 TO 10 STE : 
P 2:READ a»:L0CATE»2,4,n+2:PRINTI2, 
a*:NEXT 
1100 GOSUB 570 



>DD 


1120 FOR 1=1 TO 16:PRINT»1," ";ag*( 


■PD 


;UG 


ptr,i):NEXT 




.08 


1130 r*=UPPER»(INKEY«):IF r*="" THE 


)HV 


>LY 


H 1130 




>MP 


1140 IF r*=CHR*U3) THEN aS»2:CLSI 


>LC 


>LN 


3:G0T0 110 




>w 


1150 IF r»="S" AND ptKctr THEN ptr 


>BH 


,'TQ 


=ptr*l:CLS#l:60T0 1120 




>ZH 


1160 IF r*="P" AND ptr>l THEN ptr=p 
tr-l:CLSIl:S0T0 1120 


>ZL 


,>TC 


1170 IF r»=*M" THEN 1190 


■QD 


>cv 


1180 IF r»OCHR»(13) OR r«<>"S" OR 
r$<>"P" OR r»<>"M - THEN PRINT CHR»( 


>FF 


M 


7)|:G0T0 1130 




EH 


1 190 CLS«3: INPUTH3, " No du champ ( 1 
-16) "intr 


>RT 


;QH 


1200 IF n«r>0 AND nnr<17 THEN 1220 


•U 


;UT 


1210 er*="No de 1 a 16 s.v.p":GOSU 


>VJ 


RF 


B 130: GOTO 1190 




,'LP 


1220 CLS#3: INPUTI3, " Contenu : " ; ag 


TX 


>MJ 


*(ptr,nir) 




>LT 


1230 CLSI3:aS#l: GOSUB 570: GOTO 112 >DD 


8N 







>ug 


1240 ' SUPPRIMER -- 


>XK 


>AZ 


1250 IF ctr=0 THEN GOSUB 43O:GOT0 1 
10 


>DR 


;TG 


1260 CLS»3:INPUT#3," Index (jour): 


>RY 


>TQ 


";index$ 




,vw 


1270 IF index*="" THEN 590 


>TY 


;ZG 


1280 bd=l 


m 


;BR 


1290 IF ag»(bcl,l)=index« THEN 1320 >BP 


>HK 


1300 IF bcKctr TtCN bcl=bcl+l:GOTO >HB 


>NH 


1290 




>NG 


1310 er*=" Journée non répertoriée": 


.GZ 


m 


GOSUB 130: GOTO 110 




•m 


1320 FOR i=l TO 16:PRINT#1," ";ag*( 


PQ 


>MA 


bcl,il:NEXT 






1330 CLS#3:PRINTI3," Supprmer cet 


■NU 


>JF 


te journée ? t 0/N 3 " 




>QP 


1340 GOSUB 620 


PF 


m 


1350 IF r»="0" THEN 1390 


■QH 


m 


1360 IF r«="N" THEN 1380 


X» 


>TG 


1370 GOSUB 580:S0T0 1340 


>RL 


>MB 


iJBO llS»1:G0TÛ i 10 


■m 


ili 


1390 FOR il=bcl TO ctr-1 


>RA 


>K 


1400 FOR i2=l TO 16 


>LD 




1410 ag»(il,i2)=ag»(il+l,i2) 


>VP 


>VD 


1420 NEXT:NEXT:ctr=ctr-l:CLSIl:60T0 >JG 




110 




>0F 


1430 ' SORTIR — 


m 




1440 IF ctr=0 THEN GOSUB 430:G0T0 1 


>DT 


>DF 


10 






1450 CLSI3: INPUTI3, " Jour (1er <=> 


>ZK 




31ene) "; index* 




>PD 


1460 IF index»="" THEN 590 


>T2 



1470 bcl=l 

1480 IF ag»(bcl,l)=index« THEN 1510 

1490 IF bcKctr THEN bcl=bcl+l;G0T0 : 
1480 

1500 er*=" Journée non répertoriée": 
GGSUB 130: GOTO 110 
1510 FOR i=l TO 16:PRINT»1," ";ag*l 
bcl,i):NEXT 

1520 CLS#3:PRINT#3," Une autre jou 
rnee ? [ 0/N ] " 
1530 GOSUB 620 
1540 IF r»="0" THEN 1570 
1550 IF r»="N" THEN 1580 
1560 SOSUB 580: GOTO 1530 
1570 CLS#3:G0T0 1590 
1580 CLSihSOTO 110 
1590 SOSUB 440:Cl.S#l:60TO 1510 

1600 ' QUITTER — 

1610 IF ctr=0 THEN 1680 

1620 CLS#3:PRINTI3," Données sauve 

gardées ? t 0/N )" 

1630 60SUB 620 

1640 IF r$="0" THEN 1680 

1650 IF r»="N" THEN 1670 

1660 GOSUB 580:SOTO 1630 

1670 SOTO 110 

1680 Cflli 

1690 ' CATALOGUE - 

1700 CLSI2:O.S#3:blIN[ICMtO,20, 79,6,2 

1 : CLS#0:LXATE#2, 4, 2: PRINTI2, "CATAL 

OGUE" 

1710 DATA "- Supprimer","- changer 

Nom","' Catalogue","- Retour" 

1720 RESTORE 1710:F0R n=4 TO 10 STE 

P 2:READ a«:L0CATE#2,2,n*2:PRINT#2, 

a«:NEXT 

1730 GOSUB 1B70:CAT 

1740 PRINT»3," Réponse [ S,N,C,RET 

URN ] ";CHR»U54I;CHR$(243);" ";CHR 

»(207l 

1750 r»=UPPER*(INKEY»):IF r$=" TU 

N 1750 

1760 IF r*="S" THEN 1810 

1770 IF r»="N" THEN 1830 

1780 IF r*="C" THEN CLSI0:CLS#3:G0S : 

UB 1870:CAT 

1790 IF r»=CHR»U3) THEN 1860 

1800 IF r$OCHR»(13l OR r$<>"S" OR 

r*<>"N" OR r«<>"C" THEN PRINT CHR»( 

71;; GOTO 1740 

1810 CLSI3:INPUT#3," Nom du fichie 

r ( ? .A6D) a supprimer ";-fic* 

1B20 a«=<ic»+".A6D":IERA,ea»:CL5#3: 

60T0 1740 

1830 CLS#3:INPUTt3," Nom du fichie : 

r ( ? .A60I a renouer Vie» 



M x 


1840 CLSI3:INPUTI3," Nouveau non " 


« 


.•BR 


jfien* 






1850 a*=fic*+".AGD":al*=ficn$+".AGD 


■NE 


)HN 


■::REN,eal*,6aS:ULSI3:GOT0 1740 






1860 ClSt2:CLS«O:UINDOXt0,l,BO,l,25 


>NU 


,-GA 


:SOTO 110 






1870 PRINT#0,"Les fichiers AGENDA 5 


>YD 


>PR 


e reconnaissent au suffixe (.AGD)" 
:RETURN 




>CD 


1880 ' VIDER - 


>YK 




1890 IF ctr=0 THEN GOSUB 430:GOT0 1 >DC 


>PG 


10 




>QJ 


1900 CLSi3:PRINT»3," ATTENTION ce 


,QD 


><* 


tte option vide le contenu mémoire 




>RN 


!!!" 




>NR 


1910 GOSUB 2090 


>XE 


,>NC 


1920 GOSUB 620 


>PK 


>YE 


1930 IF r«="0" THEN 1960 


;0Q 


>XK 


1940 IF r»="N" THEN 1970 


>BR 


>QC 


1950 GOSUB 580:60T0 1920 


>RV 


>ST 


1960 ERASE ag«,erreur$:CLEAR:GOT0 7 >FE 


)PH 




1970 GOTO 110 


;FE 


>gn 


1980 ' EFFACER - 


:lt\ 


>QL 


1990 CLS»2:aS#3:NIND0M#0,20,79,6,2 >LK 


;RQ 


l:CLStO 




>F6 


2000 GOSUB 1870: CAT 


m 


m 


2010 PRINT»3," Vous ave2 demande! 


>TN 


>YJ 


l'effacement des fichiers ( ? .BAKI 




>EJ 


mi* 






2020 GOSUB 2090 


m 




2030 SOSUB 620 


>PC 


>ZX 


2040 IF r»="0" THEN 2070 


•OA 




2050 IF r«="N" THEN 2080 


m 


>DD 


2060 GOSUB 580: SOTO 2030 


,RE 




2070 a*="*.BAK":!ERA,Sa«:B0T0 2100 


BN 




2080 GOTO 2100 


•m 


)NX 


2090 PRINTI3," Confinez par [ 0, 


;QY 


>FK 


N ] ";CHR*(154);CHR»(243);" ";CHR»( 
207I:RETURN 






2100 CLStO:WINDOH*0,l, 80,1,25:6070 


,-FT 


>HM 


110 






2110 ' RETOUR - 


;XG 


•QP 


2120 CLS#2:CLS*3iMINDOtt#0,20,79,6,2 >KD 


m 


1;CL8M 




>NX 


2130 PRINTI3, " Je retourne au MENU >EF 




précèdent ! ! !" 




'VL 


2140 FOR x=0 TO 2000:NEXT:CLSI3 


>YR 


>EH 


2150 NINDOH#0,l,B0,l,25:CHAIN , 'AGEND >PP 




A .BAS", 90 






2160 ' TRAITEMENT ERREURS - 


>YB 


>ZY 


2170 ON ERROR GOTO 2350 


>œ 




2180 DIM erreur»(32) 


>PE 


>m 


2190 FOR 1=1 TO 32:READ erreur» (il; 
NEXT 


>GE 


>XD 


2200 DATA Next attendu, Erreur de sy 
ntaxe,Return attendu, Pas assez de c 


>GG 



A 



ornées 

2210 DATA Valeur ou argument incorr >W 

ect, Débordement dans un calcul 

2220 DATA Dépassement de la capacit >YL 

e mémoire, Numéro de ligne inexistan 

t 

2230 DATA Indice de tableau hors li >«U 

mites, Redimensionneoent de tableau 

2240 DATA Division par zero,Command >HB 

e invalide en mode direct 

2250 DATA Affectation d'une chaîne >RC 

a une variable numérique ou inverse 

2260 DATA L'espace reserve aux chai >RB 

nés déborde, Chaîne trop longue 

2270 DATA Chain trop compliquée,™ >TY 

T impossible, Fonction inconnue 

2280 DATA Commande RESUME absente, C >KV 

ommande RtbuHt inattendue 

2290 DATA Commande directe trouvée >ZT 

sur le chargement d'un programme 

2300 DATA Signe d'opération absent, >LX 

Ligne trop longue, Fin de fichier re 

ncontree 

2310 DATA Erreur dans le type de fi >BE 

chier,NEXT manquant, Fichier déjà ou 

vert 

2320 DATA Commande inconnue, NEND ma >FT 

nquant,MEND inattendu 

2330 DATA Fichier non ouvert, Lectur >H6 

e/ecriture interrompue 

2340 RETURN >FC 

2350 CLS(K):CLS#3:PRINT#3," INFO: >NV 

";erreur»(ERR>;" hgne'jERL 

2360 PRINPLe fichier demande n'exi >CU 

ste pas ! ! ! " 

2370 PRINT'Relancez le programme pa >»X 

r RUN" 

2380 PRINT:CLEAR:END >QF 

2390 ' INFOS - >YG 

2400 CLS#2:CLS»3:LXATE 5,6:PRINT"* >NX 

INFOS »" 
2410 PRINTI2,"La touche (,)estst>H6 
rictémentinterdite lorsd une sais 
ie. " 

2420 PRINT#2, "L'écriture, unefois c >QL 
hoisie,nepeut plus etremodifiee. " 
2430 PRINTI2, "Ne pas depasser31 en >NB 
registre-ments (capacitefichier .A6 
D)." 

2440 PR1NTI2, "Ne jamais edit-er un >VU 
e fichevide ; vousperdriez 1 

en-registrement." 

2450 PRINTI3," Une touche S.V.P's >RB 
CALL Î.BB06 

2460 LOCATE 5,6:PRINT SPACE»I9):CLS >PH 
•2;GOT0 180 








TITREUR 



Roger PETIT 



Les enfants aimant 
illustrer leurs "œuvres" 
(même très simples) par 
un titre bien cadré et de 
préférence en couleur, je 
leur ai "fabriqué" un 
utilitaire que j'ai appelé 
"TITREUR" mais qui ne 
peut travailler qu'avec 
l'aide de "LETTRES" 
qu'ils doivent compléter 
eux-mêmes, aidés par 
"R" (dessin de la lettre 
R). 

L 'utilisation de ces 
programmes n 'étant pas 
limitée aux seuls élèves, 
une description sommaire 
est nécessaire. 



"TITREUR" est un utilitaire 
auto-explicatif qui permet de 
composer un TITRE (ou 1 ligne 
de texte), de le mettre en PAGE 
(changement de la taille des let- 
tres, décalage horizontal et ver- 
tical) et de modifier les COU- 
LEURS du bord, du fond et du 
texte (en modes 1 et 2). 
La sauvegarde de la composition 
s'effectue par copie d'ECRAN 
(17 Ko). Il est également possi- 
ble, grâce aux renseignements 
fournis de modifier "LET- 
TRES" pour obtenir un court 
programme BASIC qui évite 
parfois de... repartir à zéro ! 
"LETTRES" n'utilisant pas les 
caractères standards du CPC 



demande de créer ses propres 
lettres (ou dessins). A titre 
d'exemples sont proposées des 
lettres, simples (I) ou plus com- 
plexes (R) qu'il est possible de 
modifier : elles sont contenues 
dans un carré de 20 pixels de 
côté (sauf I = 4x20) et leur 
"épaisseur" est de 4 pixels ; le 
début prévoit le décalage verti- 
cal (d) et la fin le décalage hori- 
zontal (e) entre chaque lettre 
(voir "R"). 

Les seules autres variables à con- 
naître sont "p" (n° de stylo) "1" 
et "h" (coefficients multiplica- 
tifs modifiant la largeur et la 
hauteur des lettres). Le coloriage 
utilise bien sûr la fonction FILL. 
Il est possible d'utiliser des obli- 
ques mais attention aux concor- 
dances de coordonnées en mode 
1. 

Avec des élèves, il faut donc tra- 
cer une matrice quadrillée (for- 
mat au choix) dans laquelle ils 
dessineront puis indiqueront les 
coordonnées des points de chan- 
gement de direction (leur pro- 
gramme de mathématiques pré- 
voit les repérages dans le plan) . 
"R" est un court programme 
(appelé par RUN "R") expli- 
quant un dessin de la lettre R 
avec une remarque (REM) sur 
chaque étape de sa "fabrica- 
tion". Une sortie du listing sur 
imprimante est souvent suffisan- 
te. 

NB : - Pour une utilisation sur 
nanoréseau, il est bon d'écrire 
un court programme d'appel de 

8 



"TITREUR" puis du pro- 
gramme de lettres de chaque 
élève (avec le nom choisi par 
eux). 

- A cause de l'inversion vidéo, 
éviter d'utiliser la touche ESC 
ou la neutraliser (après une Ire 
sauvegarde !) avec ON BREAK 
CONT (en début de 
programme). 

- Pour une utilisation indivi- 
duelle, en cas de changement de 
nom du programme "LET- 
TRES", modifier la ligne 10 de 
"TITREUR". 

10 ™*="LE7TEE3 >HB 

20 CHAIN HERBE no»*. 40. DELETE 20 >Z0 

30 'ATTENTION. .. la iiqne 20 se detr >LC 
Ult après le premier RUN' 
40 CLS: MODE !: BORDER 0:INK 0.3: INK >AJ 
1,24:INK 2.26: INK 3.18 
50 PEN 1 : L0CATE 14.2:PRINT"T I T R >JL 
E U R" 

60 L0CATE 17.4:PRINT"» « » ♦" >NF 
70 PEN 2:L0CATE 8.9:PR1NT"C0MP0SIT1 >JC 
ON" 

80 L0CATE 16.14:PRINT"M1SE EN PASE" >EH 
90 L0CATE 24.19:PRINT"CDI_QRIAGE" >BE 
100 PEN 1:LXATE 12.24:PRINT"Presse >ZP 
r une Touche" 

110 a$=INKEY*:IF a$=""THEN 110 >XC 
120 CLS:L0CATE 8.4:PRINT"Entrer (en >BG 
une seule fois)" 
130 L0CATE 14.6:PRINT"le MOT choisi >JP 

140 G0SUB 4010 >PB 

150 L0CATE 20.1B:PRINT CHR$(1B) >VB 
160 PEN 1 : LOCflTE 12,18; UNE INPUT" >HM 
TITRE = ".t*:t*=UPPER«(t*l 

170 IF LENIMKI THEN 150 >RL 

ISO aa=G )UE 

190 FOR 1=1 T0 LENIt») >PA 

200 u*=MD*(t*,i.l> >ht 

210 u=ASC(u») >LH 



220 IF u=69 OR 
OR u=85 T HEN aa=aa* 
230 NEXT 

240 IF aas.LEN(tt) T 
250 CL5 

260 LOCftTE 9.2:PRINT 
T I 2 N 5" 
270 LDCATE 14.4:PRIN' 



=73 OR u=82 OR 



PRINTREAU3AT ,W 



2â0 PEN 3:lDCATE 

ION DU T ITRE : li 

290 PEN !:PRINT:PRINT TAB(10)"I3 te >EW 

ucnes suffisent)" 

300 PEN 2:PRIN7;PRIMT TAB<6)CHR$i24 >PK 

2)::PEN i:PRINT" et "::PEN 2:i 3 RIN7 

CHR$(243)::PEN IsPRINT" : "::?EN2: 

PRINTChoix et Modifications' 

310 PEN 2:PR:INT:FRINT ThB Î6> "ENTER >BH 

l"::PEN i:PRIN T =: "::POI 2:PFINT"En 

tree des Choix " 

320 PRINT TABi25s"et des Données'' >FE 

330 FEN 3:L0CATE 2.20:PRINT"SAUVEEA m 

RDE : " : : PEN 2:FRÏN7"Indicàtions ult 

eriecres" 

340 PEN 1:L0CATE 12.24:PRINT"Ppesse Ztt 

r une Touche" 

350 a*=INKEY»:If aS=" :, THEN 350 >XQ 

360 z=5:z!=3:z2=7:q=0 ;QZ 

370 '♦**♦* ECRITURE DU TITRE «M /TA 

380 h= i :I= ! :e= :X= :Y= 190 >Sfl 

id= :b= :f"= 1 :t= 26 :p= :r= 

1 :•= 2 

390 CLB: t$=UPPERtit*i : tit*=t* iZB 

400 MODE m;INK . -f : I NK i.t:INK '..<■: >KJ 

BORDER b 

410 ORIBIN X.Y >ZG 

420 FOR i=i TO LENititl) >Rfi 

430 b*=HID$(tiW,i.l] /PU 

440 bb=ASCib»> /RE 

450 a=bb-64 /TE 

460 IF a<l OR a/26 THEN a=27 >UB 

470 30SUB 4060 >QC 

480 NEXT /EH 

490 60T0 510 ! ZF 

500 END >RJ 

510 ' ******** AIGUILLAGE ********* >RG 

520 IF m=2 ANS 9=0 THEN GOTO 610 >XP 

530 IF »=2 AND q=l THEN GOTO 17B0 >YF 

540 IF «=2 AND o=2 THEN GOTO 2430 /YA 

550 IF m=2 AND q=3 THEN GOTO 2460 VF 

560 IF u=2 AND 9=4 THEN GOTO 2940 >YL 

570 IF m=l AND a=0 THEN GOTO 1230 >YX 

580 IF »=1 AND g=l THEN GOTO 2340 >YC 

590 IF m=l AND q=3 THEN GOTO 2370 >YJ 

600 IF m=l AND q=4 THEN GOTO 2940 >YE 

610 ' * MASQUE ECRAN (MISE EN PAGE! >RH 

620 LOCATE 1.22 >XA 



630 FOR 1=1 TO 80:PRINT CHR*Ï154);: 
NElT 

640 PRINT TABi2)"Hauteur"::PRINT TA 
B(10) CHR$(149I::PRINT TABI121 "Larq 
eur"s:PRINT TAB(20i CHR*\I49i::PRIN 
T TA6(22) "Espace": :PRINT TAB!30) CK 
R*tl49i: 

650 PRINT TABÎ32) "Origine": :PRINT T 
ABI40Ï CHR*!149)::PRINT TAB(42)"0fi 
aine"::PRINT TAB!50»CHR*(149i::PRIN 
T TAB(51)"Decaia9e"i:PRINT TABi60iC 
HRt ! 149) : :PR!NT TAB (62i "Couieur" : : F 
RINT TAB(70)CHR$!149)::PRINT TAE'72 
) "Couleur" 

660 FOR i=l TO BO:PRINT CHR$il54):: 
►EXT 

670 PRINT TABilû) CHRtii49i :: PRINT 
TABÎ20! CHR$(149;::PRINT TA8Ï30: CH 
R$I149)::PRINT TAB(40i CHR*!149!;:F 
RINT TABi50i CHR»i!49i: :PR!NT TAB (6 
0JCHR»il49i;:PRINT TA6(63i"Hode 1": 
:PRINT TABi70!CHR$(149i::RRINT TAB! 
73 i "(Iode 2" 

680 MNDOW M.1.9.25.25:IHNDQU »2,1 
1,19,25.25:«IND0W #3.21.29,25.25:»! 
NDOM #4.3I.39.25.25;WIND0I« #5.41.49 
.25.25:NIND0ki #6, 51 , 59, 25, 25: HINDOU 
#7.1.60.21.21 

690 ' ***** RAPPEL DES VARIABLES ** 
*** 



nTri 



700 PRINT»!." n=":U3!N6 


"##.i"ih 


710 PRINT#2." 1=";USING 


"##.#":! 


720 PRINT#3." e=":USING 


"####" :e 


730 PRTNT#4." X=":USÎNS 


"####" :ï 


740 PRINT#5." Y=":USING 


"#»##": Y 


750 PRINTKi." d= ,, ;USINB 


"####" id 


7o0 **** SELECTION DES 


FENETRES * 


*♦* 




770 CL3#7: LOCATE #7.:.l: 


PRINTI7, CH 


R*!241! 




780 a$=INKEY$ 




790 IF a*=CHR*(243> AND 


z<66 THEN 2 


=z+10:CLS#7:LOCATE #7.2. 


1:PRINT#7. 


CHR*i241) 




800 IF a«=CHR$(242) AND 


z>14 THEN : 


=2-10:CLS#7:L0CATE #7,2, 


I:PRINT#7. 


CHR«i241) 




810 IF a*=CHR$U3S THEN 


330 


820 GOTO 780 




B30 IF 2=5 THEN PRINT#1. 


CHR*(24!:PR 


INT#1." h=";USINB "»#.#' 


ih :60T0 92 



BH RINT*"." e=' : :USING "####":e:GOTO 10 



860 IF 2=33 THEN PRTNT#4.CHR$i24) :P >HD 

RINT#4. " X=":USING "####": î(: SûTû 10 

70 

670 IF :=45 THEN PRINT#5.CHR»(24):P >WF 

RINT#5. " Y=":USIN6 "####";Y:GDT0 1! 

880 IF 2=55 THEN PRINT*6,CHR$(24):P /HE 

RINT#6." d=":USINB "####" :d:BOTO 11 

fl ç O IF 2=o5 THEN i»=l:cûui=!:GOTO 39 /DB 

900 IF z= 7 5 T KEN i=2:Q=l:»=O:BOT0 3 (DM 

90 

910 * MODIFICATION DE3 VARIABLE >TA 

S * 

920 a*=!NKEY$ /RE 

930 IF a$=CHR*!243i AND h<9.6 THEN /RE 

Mi+0.5:PRINT#1,' h=":USING "##.#": 

h 

940 IF a$=CHR$(242) AND h/0. 6 THEN RW 

h=h-0.3:PRINT*l." h=":USIN6 "##.#': 

h 

950 IF a*=CHR*(13S THEN PRINT#1.CHR >RY 

«i24i:S0T0 390 

960 GOTO 920 AC 

970 a*=INKEY$ >PK 

980 IF a$=CHR$i243i AND 1/9.6 THEN >RE 

1=1+0. 5:PRINT#2." 1=";USÏNB '##.#": 



840 IF 2=15 THEN FRINÏ#2,CHR$(24i:P >VC 

RINT#2." 1=":USING "##.#":I:GOTO 97 



850 IF 2=25 THEN FRINT#3.CHRt(24):P }W 



1 

990 IF a*=CHR$!242! AND 1>0.6 THEN >RZ 
l=i-0.5:PRINT#2." 1=":USING "##.#": 
1 

1O00 IF a$=CHR$il3i THEN PRINT#2.CH >TC 
R*i24i:GCT0 390 

1010 GOTO VO >FD 

1020 a*=!NKEY$ >VK 

1030 IF a»=CHR»!243i AND e<600 THEN >QK 
e=e+5:PRINT#3." e=":USING "####":e 

1040 IF a«=CHR«!242i AND e>-600 THE ,RD 
N e=e-5:PRINT«3." e='iUSING "####": 
e 

1050 IF a$»CHR$(131 THEN PRINT#3,CH >TJ 
R*(24):G0T0 390 

1060 GOTO 1020 >LH 

1070 a*=INKEY* >HC 

1080 IF a*=CHR$(243) AND X<620 THEN >RC 
X=X+10:PRINT#4." X=";USING "####": 
X 

1090 IF a*=CHR«(242i AND X>0 THEN X >PF 
=X-10:PRINT#4," X="jUSING "####";X 

1100 IF a«=CHR$(13) THEN PRINT#4,CH >TF 

R»(24):B0T0 390 

1110 GOTO 1070 >LJ 
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1120 a$=INKE¥* >VJ 

1130 IF aS=CHR$!243i AND Y<380 THEN >RH 
Y=Y+10:PRINT#5. " V=":USING "#!##": 
V 

1140 IF â$=CHR*(242» AND ï>8û THEN >QR 
¥=Y-I0:PRINT«5," Y=":USIN6 "####":¥ 

1150 IF a»=CHM(131 THEN PRINT»5.CH >TM 
RS(24;:60T0 390 

1160 BOTO 1120 >LK 

1170 a*=INKEY« >HD 

1180 IF a«=CHR*;243) AND dG80 THEN >RK 
d=d+10:PRINT#4." d=":USING "#W#": 
d 

1190 IF a*=CHR*<2421 AND d:-3B0 THE >TE 
H d=d-10:PRINT*6," d=":U3ING "«H" 
;d 

1200 IF a«=CHR$(13! THEN PRINTiè.CH >TJ 
RS (24): GOTO 390 

1210 BGTO 1170 m 

1220 RETURN >EJ 

1230 '» MASQUE ECRAN (COULEUR «ODE >XJ 
1: « 

1240 LOCATE 1.22 >DB 

1250 FOR l=! TO 40:FR!NT CHR*U54): >HN 
:NEXT 



1260 PRINT TAB!2i l! Bo>-d"::PRiNT TAB! 
7! CHR$( 149);: PRINT TAB(9) "Fond": :P 
RINT TABS14) CHR«< 149);: PRINT TAB!1 
5)"Trait"::PRINT TABi21) CHRJÏ149): 

1270 PRINT TflB(22)"Lettre"::PRINT T 
AB(2S!CHR*il49i::PRINT TAB(29)"Dess 
in"::PRINT TAB(35i CHR$il49);:PRINT 

TAB (37) "Vue" 

1280 FOR i=i TO 40:PRINT CHR$(154i: 
:NEXT 

1290 PRINT TABI7) CHR$!149!::PRINT : 
TABU4) CHR*( 149):: PRINT TAB(21) CH 
R* 1149):: PRINT TAB (28) CHR$(149)::P 
RINT TA8I29) "Retour": :PRINT TAB(35i 

CHR$(149)::PRINT TABi37)"Fin" 
1300 HINDOU ttl.i.6.25.25:WIND0W #2, ', 
8.13.25.25:«IIND0» #3. 15.20. 25.25:1»! 
NDDW #4.22.27,25.25:WIND0« 17,1,40, 



**** RAPFEL DES VARIABLES « >XH 



1320 PRINTHl," b=":USIN6 "##":b >V0 

1330 PRINTI2," f=":USING "#«":< >YB 

1340 PRINT#3." t=";USIN6 "#»":» >ZA 

1350 PRINTM," r=";USINB "##";r >YB, 



1360 »*«* SELECTION DES FENETRES >»C 

t*+* 

1370 CLS#7:L0CATE #7.zl. l:FRiNT#7. >LB 

CHfi'$!241) 

1380 a*=INKEY* :ig6 

1390 IF at=CHR$!243) AND z!<33 THEN >K6 

zl=zl+7:CLS#7: LOCATE »7,zi,i:PRIN 
T#7, CHR$(24!i 

1400 ÎF a*=CHR$<242! AND :1>9 THEN :JA 
zl=zi-7:CLS#7: LOCATE #7,zl.l:PRINT 
#7. CHR*(241) 

1410 IF a$=CHR$(13) THEN 1430 >VY 
1420 BOTO 1380 >HG 

1430 IF zl=3 THEN PRINT»!. CBR«(24): >U6 
PRINT#1." b=":USING "tt#":b:S3TQ 150 


144C IF :I=10 THEN FRINT#2,CHR*!24i »VY 
:PR!NT#2." f=":UBINE"#tf : *:EOT0 155 


1450 IF zl=17 THEN PRINT»3.CHR*!24i >UF 
:FRINT»3. ' t=' , ;USING'##" : t : 3QTD 164 


1460 IF zl=24 THEN p=2:PRINT«4,CHR$ >BV 
124):PRINT«4," r=";U5INB"*#';r:G0T0 

1730 
1470 IF zl=3! THEN p=O:»=2:r=f:G0T0 >FN I 




DEUX 



IMOIS 



4 REVUES POUR LES PASSIONNES 



CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 

AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD - des programmes, 
des articles t A la demande de nos lecteurs, nous prenons désormais les abonnements. 
PCompatibles MAGAZINE : la référence en matière d'initiation et de perfectionne- 
ment sur les "compatibles PC". 

Attention, tous nos abonnés reçoivent avant parution des souscriptions sur les nouveaux 
livres I 

ATTENTION I II n'y a pas d'abonnement rétroactif. 

□ CPC AMSTRAD 1 1 numéros 220 F 

□ 6 numéros 120 F 

□ AMSTAR 11 numéros 140 F 

□ PCompatibles Magazine 1 1 numéros 200 F 

□ Arcades 1 1 numéros 200 F 



NOM 

Adresse - 



Prénom - 



Code postal - 



Ville. 



Signature - 



Date 

Je m'abonne à : 



Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SOBACOM. 
Service Abonnement - BP 1 1 - 351 70 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 
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1480 IF zl=38 THEN q=l:e=l:5uTÛ 390 >BU 

1490 ' » MODIFICATION DES VARIABL >YG 

ES ♦ 

1500 a*=INKEY$ >W 

1510 IF a*=CHR*(243i AND b<26 THEN >LC 

b=b+l:PRINT#l," b=" : QSIN6 "*#";b 

1520 IF a*=CHR$(242! AND b>0 THEN b >KK 

4-liPRINTH," b=";USINE "tMt";b 

1530 IF at=CHR*(i3i THEN PRINTtl.CH >TK 

R$i24);S0T0 390 

1540 60T0 1500 >ND 

1550 a*=INKÈY« «F 

1560 IF a*=CHfi>!243: AND K26 AND t >¥V 

<>t THEN t=«l:FRIN T #2." î=":USÏNG 

"*#";< 

1570 IF a*=CHR$<243; AND K26 AMD t >XZ 

=t THEN <=t+l:PRINT#2," f=";USINB " 

##":* 

1560 IF a*=CHR*!243) AND t=26 AND t ,-ffl 

=26 THEN f=f-l:PRINTt2," F=":USING 

"##";t 

1590 IF a*=CHR*(242/ AND t>0 AND « >XX 

H THEN t=î-i:PR]NT#2," f=":USINfi " 

*#":< 

1600 IF a*=CHR*(242> AND f>0 AND i- VB 

t THEN f=t-l:PRINT#2," t= :, :LS!NS "» 

»":f 

1610 IF a*=CHR*(242) AND t=0 AND t= >VK 

THEN f=f+l:PRINTi2," f=":L!SINB "I 

#";f 

1620 IF a*=CHR*il3S THEN PRINT*2.CH ÏTL 

R* (24): GOTO 390 

1630 60T0 1550 >HJ 

1640 a*=INKEV$ 

1650 IF a«=CHR»(243) AND t<26 AND t 

©t THEN t=t+l:FRINT#3.' : t=": USINE 

"#» ,! :t 

1660 IF a«=CHRSi243, AND t<26 AND t >XH 

=f THEN t=fH:PRINT#3." t=":L!5ING " 

##":t 

1670 IF a*="HR$i243) AND t=26 AND i >ÏH 

=26 THEN î=t-l:FRINT#3." t=":USING 

"##':t 

16B0 IF at=CHR$i242! AND t>0 AND t< >XZ 

>f THEN t=t-l:PRINT*3," t=";US!NG ' ! 

t#"jt 

1690 IF a*=CHR*(242i AND t>0 AND t= M 

t THEN t=f-l:PRINT#3," t=";USING "# 

#":t 

1700 IF a«=CHR«<242! AND t=0 AND f= >«N 

THEN t=t+l:PRINT#3," t=":USING "t 

l"it 

1710 IF a$=CHR*(13! THEN PRINTI3,CH >TH 

Rt(24!:G0T0 390 

1720 GOTO 1640 >IU 



1730 a*=INKEV* 

1740 IF a»=CHRS(243) AND K26 THEN 

r=r+l:PRlNT#4." r=":USING "##":r 

1750 IF aS=CHR*!242) AND r>0 THEN r 

=r-l:FRINT*4." r=":USING' "#t":r 

1760 IF a*=CHRt!!3S THEN PRINTi4,CH 

R$(24i:GQT0 390 

1770 GOTO 1730 

1780 * MA3SUE ECRAN (COULEUR «ODE 

1790 LOCATE 1.22 

1800 FOR !=1 TO flù:PRINT CHR*!154}: 

:NE«T 

1810 PRiNT TAB(6)"Bord"s:PRINT TAE! 

14! CHR*(149)::FRINT TAB(19)"Fond"i 

:PRINT TAB!27) CHR$(149) ;:PRINT TAB 

(31! "Trait": :PRINT TAB(40i CHR*(149 

1320 PRINT TABi44)' ! Lettr-e";:PRÏNT T 
AE(53iCHR»(S49)::PRINT TAB(571"De55 
in"::PRIN T TAB(67i CHR$!149)::PRINT 

TAB!72!' ! Vue" 

1S30 FOR i=l TO 80: PRINT CHR*U54!i 
:NEÏT 
1340 PRINT TAB (14! CKR* (149;:: PRINT 

TABÎ27) CHR«(149!::PRINT TAB!40! C 
HR$(149)::PRINT TABI53) CHR*i!49i:: 
PRINT TAB (57) "Retour" :s PRINT TABI67 
! CHR*(!49i::FSINT TAB:72;"F:n' : 
1850 BiNDOU #1.2,13,25,25:»IIND0lt 12 
,15. 26,25. 25:MND0W #3.28.39,25.25: 
HINDOU #4.41.52.25,25:WND0ii #7.1,8 
0,21.21 
1860 ' **♦* RAPPEL DES VARIABLES ** 



«F 


1370 FRINItl." 


B=":USING *##' 


:b 


ZN 


1880 PRINT#2." 


f="iUSIN6 "##' 


;t 




1890 PR!NT#3." 


t=":USIN6 "##": 


t 




1900 FRINTI4." 


p=";USING "##' 


;p 



1910 ' *»* SELECTION DES FENETRES ♦ 

** 

1920 CLS#7:L0CATE #7,î2,l:PRINT#7, 

CHR*(241) 

1930 a*=INKEY« 

1940 IF a*=CHR*(243) AND z2.;6o THEN 

z2=z2+13:CLS»7: LOCATE #7.z2.î:PRI 
NTI7. CHR*(24!> 
1950 IF a»=CHR»!242i AND :2>14 THEN 

z2=z2-13:CLS*7: LOCATE i7,î2.1iPRl 
NT»7. CHR$i241i 
1960 IF a*=CHR»ii3! THEN 1980 
1970 GOTO 1930 

1980 IF :2=7 THEN FRINT»l.CHR«(24)i 
PRINTI1," b=":USING "##":b:GOT0 
2050 

1990 IF :2=20 THEN PRINT#2.CHR*(24) 
:PRINTJ2." f=":USING"t#":t:GOTO 

11 







2100 

2000 IF z2=33 THEN PRINT#3,CHR$(24! rE 

:PRINT#3." t=";USINe"##' : t:SOTO 2 

190 

2010 IF z2=4c THEN PRINT#4.CHR$(24; >2A 
:FR!NÏ#4." p=";USIN6 "#*";p:SOTO 
2280 

2020 IF z2=5= THEN m=2 :Q=0:p=0:r=t >LE 
:GOTO 390 
2030 IF z2=72 THEN m=2: q=2: GOTO 390 >BL 

2040 * MODIFICATION DES VARIABL >XJ 

ES ♦ 

2050 a*=INKEV$ >HB 

2060 IF a*=CHR*i243! AND b<,26 THEN >FD 
b=btï:PRINTttl," b=":U3ING "##":b 

2070 IF a«=CHR$i242; AND b:>0 THEN b >NH 
=b-l:PRINT#l," D=":USING "##":o 
20B0 IF a*=CHR*(!3) TKEN PRINTtl.CH >TL 

R$; 24): GOTO 390 

2090 GOTO 2050 .«F 

2100 a.=!NKEY* :>VH 

2110 IF a*=CHR*(243i AND K26 AND t 30 

i>t THEN t=F+::PRINTI2," f=":L£I 

N3 "#»";* 

2120 IF a«=CHP«(243; AND ^<2ô AND t >AR 

=t THEN f=t+l:PRINT#2," t=':JSIN 

C- ■##";( 

2130 IF at=CHRJ!243) AND <=2d AND t BP 

=26 THEN t=t-!:PRINT»2." f=";USI 

NB "»#":• 

2140 IF a*=CHRJ(242) AND f)0 AND « :>AP 

>t THEN f=t-!:PRINT#2." f=";USIN 

G "M":f 

2150 IF a»=CHR*(242! AND f AND f= IF 

t THEN t=t-l:PRINT#2." i=":USING 

"#t":t 
21o0 IF a*=CHR»!242i AND *«0 AND t= >VJ 
THEN F='+1:PRINT#2." +=":U3ING 

"i# n ;«' 
2170 IF a«=CHR*(13i THEN PRINTJ2.CH >TM 
R$ (24): GOTO 390 

2180 GOTO 2100 >MB 

2190 a»=INKEV* >«G 

2200 IF a$=CHR*!243! AND t<26 AND t >B¥ 
<>f THEN t=t+l:PRINT#3," t=":LSIN 
G "##"it 

2210 IF a*=CHR$(243i AND t<2p AND t 2D 
=f THEN t=t+l:PRINT*3," t=":OSING 

"##":t 
2220 IF a»=CHR$(243i AND t=26 AND f ;AT 
=26 THEN t=t-l:PRINT»3," t=":USIN 
G "*#";t 

2230 IF a$=CHR*!242) AND t>0 AND t< >2G 
>f THEN t=t-l:PRINT*3," t=";USIN6 

"»#":t 



2240 IF a*=CHR*(242) AND t>0 AND f >YE 
f THEN H-liPRIKTK," t=";USIN6 

"U";t 

2250 IF a*=CHR«(242) AND t=0 AND f 

THEN t=t+l:PRINT#3," t=";USING 

"##";t 

2240 IF a$=CHR$(!3) THEN PRINT#3,CH 

R$ (24): GOTO 390 

2270 GOTO 2190 >NA 

2280 a«=INKEYi >|£ 

2290 IF a*=CHR«(243) AND p<l THEN p >PF 

=p+l:PRINT#4," P =";USING "»#> 







4> 



>YD 



>TN 



2300 IF a*=CHM( 
=P-1:PRINT#4," 



:42) AND p>0 THEN p 
P="iUSIN6 "l#";p 



2310 IF a»=CHR*il3 
R* (24): GOTO 390 
2320 GOTO 2280 >MG 

2330 ' wh EXAMEN DU TITRE hhi >YA 
2340 LOCATE 12,24:PRINT"Presser une >UU 
Touche" 

2350 x*=INKEY*:IF s:»=""THEN 2350 >ZX 
2360 g=3:G0TO 390 >LB 

2370 LOCATE l,24lPRINT"Des»in«'D' >VN 
Couleur='C Utilisation='U' " 
2380 a«=INKEY*:a«=UPPER»(a») >XZ 
2390 IF a«="D"THEN m=2:g=0:60TO 390 >BA 



THEN PRINT#4,CH >TK 



2400 IF a$="C"THEN »=l:g=O:G0T0 390 >BP 

'2410 IF a$="U"THEN m=l:G0T0 2530 >YH 

2420 60T0 2380 >MJ 

2430 LOCATE 31,24:PRINT"Presser une HJV 
Touche" 

2440 x*=INKEYt:IF >;f=""THEN 2440 >U 

2450 9=3: GOTO 390 )LB 

2460 LOCATE 14,24:PRINT"Dessin='D' >TU 

Couleur='C Utili 
sation='U'" 
2470 a«=INKEYs:a«=UFPER»(a«) >XZ 

2480 IF a*="D"THEN m=2:a=0:G0T0 390 >BA 

2490 IF a$="C"THEN m=2:g=l:80T0 390 >BB 

2500 IF a$="U"THEN GOTO 2530 >VC 

2510 GOTO 2470 >MJ 

2520 ' **♦♦** UTILISATIONS HMM >YB 

2530 CLS:M0DE 1: BORDER OlINK 0,3: IN >CP 
K 1,24:INK 2,26:1»: 3, 1B 

2540 PEN 1: LOCATE 9,2:PRINT"U T I L >UT 
I S A T I N S" 

2550 LOCATE 14,4:PRINT"* » » ♦ t » >CP 
*" 

2560 PEN 2: LOCATE 11,9:PRINT"1 }\M 



an 



COPIE D'ECRAN" 

2570 PRINT:PRINT:PRINT TAB (11) 

..PROGRAMME BASIC" 

25B0 PRINT:PRINT:PRINT TAB(11)"3... >0A 

..RETOUR" 

2590 PRINT:PRINT:PRINT TAB(ll) "4. .. >LF 

..FIN" 

2600 PEN 1: LOCATE 17,23:PRINT"CH0IX >GG 
?" 

2610 a*=INKEY$ m 

2620 IF a«="l"THEN GOTO 2680 >UG 

2630 IF a*="2"THEN GDTO 2980 >VD 

2640 IF a«="3"THEN g=3:G0T0 390 >XJ 

2650 IF at="4"THEN BOTO 3090 >VA 

2660 60T0 2610 >NA 

2670 *»* SAUVEGARDE ( écran I *** >YH 

2680 ON ERROR GDTO 2960 >RH 
2690 CLS:MODE I: BORDER OlINK 0,3: IN >CX 
K 1,24: INK 2,26: INK 3,18 
2700 LOCATE 8,2:PRINT"C P I E D >0C 

'ECRAN" 
2710 LOCATE 14,4:PRINT"# I » * > * }CM 
*" 

2720 PEN 2:L0CATE 7,7:PRINT"L'l«age >ML 

doit être conservée" 
2730 LOCATE 12,9:PRINT"sous le non >RË 
de ...." 

2740 LOCATE 14,11:PRINT"... :" >XC 
2750 LOCATE 18,11:PRINT CHR$(1S) >ZK 
2760 LOCATE 18,11:PEN 1:LINE INPUT" >0V 
",titrel:tltre$=UPPER«(titre$) 
2770 IF LEN(titre«)>12 THEN 2750 >ZU 
2780 IF LENftitrrtXl THEN 2750 >YP 
2790 FOR i=l TO LEN(titret) >VJ 
2800 t«=MID$(titre*,i,l) >U0 
2B10 tt=ASCitts) >LU 

2820 IF tt=46 OR tt>47 AND tK58 OR >ND 

tt>64 AND tt<91 THEN 2840 ELSE 275 


2830 NEXT >LE 

2840 PEN 3:L0CATE 2, 14:PRINT"Couleu >HH 
rs par défaut lors du chargement" 
2850 PEN 2: LOCATE 8, 16:PRINT"donc N >KT 
oter OBLIGATOIREMENT: ■ 
2860 PEN 3:L0CATE 1. 19: PRINT"MODE"; >ZH 
■;":BORDER":b;":INK 0, "; +; ":INK 1." 
|t 

2870 IF «=1 AND r<>0 THEN LOCATE 1, >XB 
21:PRINT":INK 2,";r 

2880 PEN IiLOCATE 7,24:PRINT"C0PIE >ZV 
='C'":LOCATE 23,24:PRINT"RET0UR «'R 



2890 a*=INKEY»:a«=UPPER$(a») >XF 
2900 IF a«=T"GOTO 2930 >gG 
2910 IF a»="R"GOT0 2530 >QV 
2920 GOTO 2890 >NK 

t 
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2930 g=4: GOTO 390 >LF 

2940 SAVE titref.b. 49152, 16384 >YK 

2950 GOTO 2530 >ND 

2960 IF ERR=32 THEN CLS: RESUME 2530 >CG 

2970 '»««♦»» PROGRAMME BASIC «H» >ZA 
♦#** 

29B0 CLS:PEN 1: LOCATE 13,2:PRINT"PR >WT 

OGRAMME BASIC" 

2990 LOCATE 16,4:PRINT"» t t t t" >ZL 

3000 PEN 2:L0CATE 3,6:PRINT"Remplac >MZ 

er les 12 premières Lignes de":LOCA 

TE B,8:PRINT"....";no«ii"....par:" 

3010 PEN 3:L0CATE l.lkPRINT" CLS": >CK 

":M0DE":m:":BORDER"|b 

3020 PRINTiPRINT" INK 0,";f:":INK 1 >VX 

,":t::IF «=1 THEN PRINT":INK 2,":r: 

3030 LOCATE 1,15:PRINT" 0RI6IN"sk;" :>HE 

,";y 

3040 PRINT:PRINT" d="; d; ":h=" ;h; " : 1 >DT 

=";l;":e=";e:":p=";p 

3050 PEN 2:L0CATE 3,2û:PRINT"Appele >XM 

r les Lettres par des GOSUB" 

3060 PEN 1: LOCATE 12,24:PRINT"Press >AR 

er une Touche" 

3070 a*=INKEY$:IF a$=""THEN 3070 >YF 

3080 BOTO 2530 >MJ 

3090 CLS:MODE 1: BORDER 1:INK 0,1:IN >MV 

K 1,24:END 

3100 '*♦*** DESSIN DES LETTRES **** >XG 

LETTRES 

4000 CLS:MODE 1: LOCATE 6,13:PRINT"S >ZR 
'utilise avec 'T I T R E U R'":END 
4010 '**♦*» Lettres disponibles ♦** >XH 
4020 PEN 2:L0CATE 5, 10:PRINT"LETTRE >BE 
S disponibles:" 
4030 LOCATE 10,12:PRINT"E, I,R,T,U,. 



JN 



4040 RETURN >FB 

4050. 'la ligne 4060 (qui doit toujo >YB 

urs porter ce numéro) prévoit un cl 

asseoient alphabétique 

4060 ON a GOSUB 4100,4100,4100,4100 ;>BY 

,4220,4100,4100,4100,4190,4100,4100 

,4100,4100,4260,4100,4100,4100,4120 

,4100,4160,4250,4100,4100,4100,4100 

,4100,4100 

4070 ' llllllllllllll l lllimiiiiiii >YD 

4080 ' DESSIN des LETTRES >YE 

4090 '***»•*•♦*♦»*««»*»«***♦»«* >YF 

4100 RETURNlREM lettres NON disponi >KM 

blés 

4110 'i immmiiinnm i miii i >xj 

4120 ' lll li ui l l Lettre R **»*♦*« >XK 



4130 MOVER 0,d:DRAW 0* 1 , 20»h : DRAMR >KB 

20» 1,0*: DRAW) 0»l,-12*h:DRAW -4* 
l,0*h:DRA«R 0*l,-4*ti:DRAMR 4*1, 0*h: 
DRAW 0*l,-4*h:DRAW -8»l,0*h:DRAW! 

0*l,8«h:DRAW -8*l,0*h:DRAW 0*1,- 
B*h:DRAW -4«l,0»h 

4140 MOVER 4*l,12*h:DRAW 0*l,4*h:D >WV 
RAKR 12*l,0*h:DRAW 0*l,-4*h:DRAW 
-12»l,0*h:MOVER 2*l,2*h:FILL 0:MOVE 
R -4*l,-12*h:FILL p:MOVER lB»l,-2*h 
:MOVER 4*l+e,0*h 

4150 RETURN >FD 

4160 '********** Lettre T ******* >YD 
4170 MOVER 0,d:MOWER 8*1.0*h:DRAW >BJ 
0*l,16*h:DRAW -B»l,0*h:DRAW 0*1,4 
*h:DRAW 20*l,0»h:DRAWR 0*l,-4*h:DR 
AW -8»l,0»h:DRAW 0*l,-16*h:DRAW 
-4»l,0*h:M0VER 2*l,2*h:FILL p:MOVER 

10«l,-2*h:M0VER 4*l+e,0*h 
4180 RETURN 
4190 ********** Lettre I ******* >YG 
4200 MOVER 0,d:DRAW 0» 1,20*: DRAW! >JC 

4»l,0*h:DRAW 0*1, -20*h: DRAW -4*1 
,0*h:M0VER 2*l,2*h:FILL p:MDVER 2*1 
,-2*h:MOVER 4*l+e,0*h 
4210 RETURN >FA 

4220 ********** Lettre E ******* >YA 



■FS 



4230 MOVER 0,d:DRAW 0*l,20*h:DRAW >TV 
20*l,0*h:DRAWl 0*1, -4*ti: DRAW -16* 
l,0*h:DRAW 0«l,-4»h:DRAW 8*1, 0*h: 
DRAW 0*l,-4»ti:DRAW -B*l,0»h:DRAW 
0*l,-4*h:DRAW 16»l,0*ti:DRAW 0*1, 
-4*h:DRAW -20* l,0*h: MOVER 2»l,2*ti: 
FILL p:MOVER 18*l,-2»h:M0VER 4*l+e, 
0*h 

4240 RETURN >FD 

4250 '****♦***** Lettre U ******* >YD 
4260 MOVER 0,d:DRAW 0*1, 20*h: DRAW >XF 
4*l,0*h:DRAW 0*l,-16*h:DRAW 12*1 
,0*h:DRAW 0*l,16*h:DRAW 4*l,0*h:D 
RAW 0*l,-20*h:DRAW -20*l,0*h:nTOE 
R 2*l,2*h:FILL p:MOVER 18*l,-2*h:M0 
VER 4*l+e,0*ti 
4270 RETURN >FS 



10 CL5:M0DE 2:0R1GIN 420,40:d=0:l=5 >RN 

:h=5:p=l:e=0 

20 PRINT TABI28I"- DESSIN de la let >0L 

tre R -" 

30 REM decal.vert. >NA 

40 MOVER O.d >CK 



50 REM dessin du contour de la lett >FL 

re 

60 DRAW 0*l,20*h:DRAW 20*l,0*h:DR >EZ 

AW 0*l,-12*h:DRAW -4*l,0*h:DRAWR 

0*l,-4*h:DRAW 4*l,0*h:DRAWi 0*1,-4 

*h:DRAW -8*1.0*h:DRAW 0*l,B*h:DRA 

W -B*l,0*h:DRAW 0*l.-8*h:DRAW -4 

»l,0*h 

70 REM curs.au bas gauche du "trou" >DF 

BO MOVER 4*1, 12*h >LH 

90 REM dessin du "trou" )UB 

100 DRAW 0*l,4*h:DRAW 12*l,0*ti:DR >JF 

AWR 0*l.-4*h:DRAW -12*1, 0*h 

110 REH curseur dans le "trou" >ZR 

120 MOVER 2*1, 2*h >LK 

130 REM color. du "trou" (fond) >ZU 

140 FILL >HE 

150 REM curs.dans la lettre >HY 

160 MOVER -4*l,-12*h >NM 

170 REM choix du stylo (color.) >ZU 

180 FILL p >MA 

190 REM curs.au bas droit de la let >FX 

tre 

200 MOVER 18*1,-2* >MZ 

210 REM espace et decal.honz. >ZD 

220 MOVER 4*l+e,0*h -NF 

230 LIST 30-220 >UE i 



SKYHAWK 



Poul-Henri RENARD 



•f 



'Valable pour 

X CPC 464 
56 CPC 664 

XCPC 6128 



*-- 




Voici un jeu d'arcade compre- 
nant 9 tableaux et qui devrait 
faire remonter de vieux souve- 
nirs aux possesseurs des premiè- 
res calculatrices programmables. 



Il s'agit d'une simulation d'atterris- 
sage comprenant les effets d'attraction 
et d'inertie. Seulement, dans le cas 
présent cela se déroule sur l'écran de 
l'Amstrad, en couleur et en bruitages. 
Lors du menu, il faut utiliser les tou- 
ches du curseur ou le joystick pour 
choisir une option puis appuyer sur 
espace ou sur "Fire". En tapant 
ENTER vous sortirez du programme . 
Il y a deux listings à taper : le premier 
sera sauvé sous le nom de SKYHAWK 
et le second avec le nom SKYHAWK 
1. 



10 des m 

20 BORDER 0:DIM a!16):F0R i=0 TO 15 >YR 

:READ a:INK i.a:a(i)=a:NEXT:DATA 0. 

20,3,15.6.7.17.5,11,2,1.10.18.21.22 

.25 

30 MODE 0:TAS:PEN 12:M0VE 208.394:P >BC 

RINT " "::M0VE 208.398:PRINT" ' 

SHYHAWK"::TA60FF:PEN 3:L0CATE 11.25 

:PRINT'P-H RENARD - :: 0=635 

40 FOR i=0 T0 640 STEP 15:M0VE 320. >CY 

200 

50 DRAW i.50-30*SIN(i/2),»:n=n-l5:M >BX 

0VE 320,200:DRAN n.350-30*SIN(i/2). ' 

p:p=p+1:IF p>15 THEN p=1 

60 NEXT i >GJ 

70 P=1:F0R i=100 T0 300 STEP 15:M0V >JC 

E 250,200 

80 DRAW 50-30*COS(i+300/1.8)+5»SIN( >HC 

il.i,p:N0VE 390, 200: DRAkl 590-30*COS 

(i+300/1.8)+5*SIN(i).i+15.p:p=p+l:I 

F p>15 THEN p=l 

90 NEXT >YK 

100 FOR h=l TD 2:REST0RE 130:F0R i= >UZ 
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1 TO 48:x=INT(RND*640)+l:v=INT(RND* 
400)+l:a(16i=a(l):FDR j»l TO 13:1* 
j,a(.j):a(.i)=a(.î+l):NEXT:READ Ir.du 
:50UND l.fr.du:SOUND 2,fr/3.du:S0UN 
D 4,fr/5.du 

110 PLOT x,v.p:p=p+1:IF p>15 THEN p : 
=1 

120 NEXT i.h ; 

130 DATA 127.10.127,10,142,10,159,2 : 
0,213, 10. 159.20, 127. 10, 127.20. 142, 1 
0. 127. 10, 127, 10. 142. 10. 159. 20.213. 1 
0. 159. 20. 127, 10, 127, 30, 142, 10, 127, 1 
0. 1 19. 10. 106. 20.95. 10. 106,20. 142, 10 
, 106. 10. lOi, 10, 1 19, 10, 127,20, 142. 10 
. 159.30. 159, 10, 142, 10, 127, 10, 142, 20 
,119.10 

140 DATA 127.20.190.10.159.10.127.1 : 
0. 142, 10, 159.20. 169. 10. 190. 10, 127. 1 
0.142.10.159,10,169,10,159.40 
150 RUN" , skyhawU" ! 



1 HlliHUMIIWHUIIIllll l lllM 

2 '« 



Paul-Henri RENARD 



7 '*#*******#*****♦******♦*«**##*#* fG 
10 ON BREAK GOSUB 14BO:DIM cl (10.2) >B2 

20 DEFINT a-z:jl=0:j2=B:.j3=l:SYMB0L >flP 
AFTER 32:MODE liPRINT CHR«(23i:CHR 

*(1)::G0T0 1000 

30 PAPERtl.OilNK O.OrINK 1.2: INK 2. >F0 

15: INK 3,6:B0RDER 0:PAPER 0:CLS:PEN 
3:PRINT TAB(17)"SKYHAWK" 

40 WIND0W#1 , 1 , 40.4, 25:ENV 1,8.-1,18 >VQ 

:ENV 2.15.-1,5:ENV 4.5,-2.50:G0SUB 

650 

50 o*=CHRt(240)+CHR»(241):T-«=CHR»(2 >BE 

43H-CHR»(244)+CHR*(245)+CHR*(246):h 

=0:5=0:c=2:cc=15:ccc=6 

60 PEN 3:L0CATE 1.3:PRINT"5C0RE : >TB 
"iLDCATE 15,3:PRINT"REC0RD :"r 

:LOCATE 30.3:PRINT "NIVEAU :";n 

70 RESTORE: GOSUB 550:aa»="Appuyez s >XX 



'ur <ESPAŒ> pour CDMiencer":LOCATE 
4.6:F0R 1=1 TO LENIaa») STEP 3:F0R 
j«l TO 3:PEN ,i:PRINT MIM(aa»,i+j-l 
,1)::NEXT .j.i 

80 UHILE INKEY(47)-:>0:c=c+l:cc=cc+l 
[CCPCCCHlIF c>26 THEN c=0 ELSE IF 
cc>26 THEN cc=0 ELSE IF CCC>26 THE 
N ccc=0 

90 INK l,c:INK 2,cc:INK 3,CCc:F0R i 
=1 TO 100:NEXT:I€ND 
100 INK 1.2:INK 2.15:INK 3.6:L0CATt 
4.6:PRINT SPACE»(35i:60T0 120 
110 GOSUB 550 
120 GOSUB 540:TAG0FF 
130 f=576:PEN 2:TAG0FF:L0CATE 1,2:P 
RINT *«STRING»(36.242>:PEN 1 
140 ss=0:vs=0:v=348: x=2: t=0:xl=0:vl 
=0:qel=0 

150 PRINT CHR*(23)CHR»(1);:TAG 
160 PLOT -2.-2.3: IF K=0 THEN GOSUB 
360: GOTO 220 

170 IF qel=0 THEN t=t+l:IF W 
t=0: GOSUB 360 
1B0 IF INKEY(79!=0 THEN 20 
190 IF INKEY(,i3)=0 THEN SOUND 130.0 
,0,a,l,,20:qel=0:G0SUB 330: IF ks<8 
THEN ks=xs+2 

200 IF INKEY(.j2)=0 THEN SOUND 129.0 
,0.8.1.,20:qel=0:GOSUB 330: IF xs>-8 
THEN >:s=xs-2 
210 IF INKEYijl)=ô THEN SOUND 132,0 
,0,B,l.,30:qel=0:GTJSUB 330:IF vs>-é 
THEN ys=ys-l 
220 x=x+xs:y=y-ys 
230 IF y>350 OR y<34 THEN vs=0 
240 IF x>60B THEN x=608:xs=0 
250 IF x<0 THEN x=0:xs=0 
260 MOVE )il.yl-16:PRINT o»; 
270 MOVE x,v-16:PRINT o«; 
2B0 IF gel=0 THEN te=TEST(x-2.y-34) 
OR TESTU*lfl,y-34) OR TEST(x-2,y-l 
6) OR TEST(x+lB.y-16) OR TEST(x+34, 
y-22) OR TEST(x+34,y-28):IF te>l TH 
EN 490 

290 IF qel=0 THEN IF TEST(x+2,y-32> 
=1 AND TEST(x+28,y-32)=l AND vs<3 T 
HEN 450 

300 xl=x:yl=y:IF f<150 AND H=0 THE 
N GOSUB 320 
310 GOTO 160 

320 ff=l:EVERY 50,3 GOSUB 350:RETUR 
N 

330 IF f>0 THEN F=F-2:M0VE f+64. 
:DRAWR 0.14,3 
340 RETURN 

350 SOUND 129.50,5:RETURN 
360 IF xs>=2 THEN xs=xs-in 
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>AX 



HEN >0J 



:68 >PV 



370 IF xs<=-2 THEN xs=x5+in >WV r 

3B0 IF ys<16 THEN ys=y5+pe m •'' 

390 RETURN >ZH 

400 ff=0:re=REMAIN(3):WHILE O0:f=< >XL 

-2:M0VE f+64,36B:DRAWR 0,14.3:5=5+1 

:GOSUB 540:S0UND 1.520-f .6, lOiNEND 

410 GOTO 110 >YD 

420 ff=0:re=REMAIN (3):TAG0FF:L0CAT >HH 

E 16.10:PEN l:PRINT"<iaiœ over":TAG: 

MOVE 216.256:PRINT CHR$ (248);: MOVE 

216.240:PRINT CHRM249) ::MOVE 390,2 

56:PRINT CHM (248);: MOVE 390.240:PR 

INT CHR» (2491 ::TAGOFF:SPEED INK 5.5 

:INK 1.2.15: INK 2,15,6:1»; 3,6,2:G0 

SUB 980 

430 FOR 1=1 TO 4000:NEXT:INK 1.2: IN >CR 

K 2.15:INK 3.6:1F s>r THEN r=s:LDCA 

TE 13.1B:PEN 3:PRINT " record battu / 

!! "::GOSUB 1460 
440 GOTO 20 >R6 

450 a=x+16:b=y-34:FOR i=0 TO pi :Yu 
460 IF Plli, 0)0-1000 AND a>Pl(i.l) >BN 
AND a<pl(i,l)+pl(i.O)AND b<pl<i,2)fl 
ND b>pl(i.2)-B THEN SOUND 129,119.5 
0:SOUND 130,40,50:SOUND 132.24,50:F 
OR il=0 TO 6 STEP 4:M0VE plli, 1), pi 
d.2)-il:DRAWR pi il, 01-2,0, l:NEXT:s 
=5+Pl(i.0):pl(i,0)=-1000:upl=upl-l: 
i=I000 

470 NEXT: IF upKl THEN 400 >UB 
4B0 qel=l:v5=0:xs=0: GOSUB 540:G0T0 >6L 
290 

490 SOUND 130. 0,-1, 15,4.0.30: U=0:F >2Y 
OR i=l TO 100: INK 0,3.9 
500 FOR j=l TO 25:NEXT:IF i/5=INT(i >DE 
/5) THEN il=il XOR 1: IF i 1=1 THEN M 
OVE x,y-16:PRINT o«:ELSE MOVE x+B.y 
-16: PRINT CHR» (247); 
510 NEXT >FJ 

520 FOR 1=1 TO n»15:G0SUB 330:NEXT >8D 
530 MOVE x.y-16:PRINT o«::TAG:INK >LL 
,0:FOR 1=1 TO 2000:NEXT:x5=0:ys=0:y 
=34B:x=2:t=0:xl=0:vl=0:qeI=0:IF f>0 
THEN 160 ELSE GOTO 420 
540 TA60FF:PEN 3:L0CATE 8,3:PRINT s >MK 
:PEN llLOCATE 1,1:TAG: RETURN 
550 pl=0:CLS«l:TAGOFF:PRINT CHR«(23 >HK 
)CHR«(0) 

560 READ v,»:IF v=-l THEN GOSUB 139 >XD 
0:RESTORE:GOTO 560 

570 p=0:READ a,b:IF a=-l THEN upl=p >XV 
l:pl=pl-l:RETURN 

5B0 IF a<0 THEN a=-a:p=l:pl(pl,l)=v >ZG 
:pl(pl,2)=»:pl(pl,0)=ABS(a-v):pl=pl 
+1 

590 IF a<v THEN sc=0 ELSE sc=2 >XN 
600 dx=a-y:dy=b-»:l=SQR(dx*dx+dy«dy >GF 



) 

610 FOR e=0 TD 1 STEP 2 

620 5c=5c+(5c=3)-(sc=2):M0VE v+e*dx 

/l.w+e*dy/l:DRAWR 0,-400, se 

630 IF p=l THEN MOVE (v+e*dx/l) . (w+e 

>dy/ 1 i : DRAUR 0,-6.1 

640 NEXT:v=a:>Fb:GGTO 570 

650 SYMBOL 65,0,126.66,66,126,66.66 

,66:SYMB0L 67,0,126,64.64.64.64,64, 

126:5YMB0L 6B.0, 124,66,66.66,66,66, 

124:SYMBDL 69,0,126,64,64,120,64,64 

,126 

660 SYMBOL 72.0,66,66,66,126,66,66, 

66:SYMB0L 73,0,8,8,8,8,B,B.B:SYMB0L 

75,0,34,34,36,56,36.34,34:SYMB0L 7 
8,0.98,98,82,90,74,70,70 
670 SYMBOL 79,0,60.66,66,66.66,66,6 
0:SYMBOL 82,0,126,66.66,126,68.66.6 
6: SYMBOL 83,0,126,64,64,126,2,2,126 
:SYMBOL 85,0,66,66,66,66,66,66,60:5 
YMBOL 86,0,66,66,66,66.66,36.24 
680 SYMBOL 48.0,124,68,68,68,68,68, 
124:SYMB0L 49, 0,4,4, 4,4,4,4. 4:SYMB0 
L 50,0, 124, 4,4, 124,64. 64, 124:SYMB0L 

51,0, 124,4,4,60.4,4. 124:SYMB0L 52, 
0,63.68,68.124.4,4.4' 
690 SYMBOL 53',0.124.64,64.124,4,4.1 
24:SYMB0L 54,0,64,64.64.124,68.68,1 
24:SYMB0L 55,0. 124,4,4.4,4, 4, 4:SYMB 
OL 56,0. 124,68,68, 124,68,68. 124:SYM 
BOL 57,0,124,68.68,124,4,4.4 
700 SYMBOL 240,255,63,15,6.6,15,63, 
255 

710 SYMBOL 241,0,240,248,79,79,248. 
240 

720 SYMBOL 242,192.240,252.255.255. 
252,240,192 

730 SYMBOL 243,254,254,192,192.254, 

192,192,192 

740 SYMBOL 244,198.198.198.196,198, 

198,254.254 

750 SYMBOL 245.254,254,192.192.254, 

192,254,254 

760 SYMBOL 246,192,192.192,192,192. 

192,254,254 

770 SYMBOL 247,28,63,63.127.126,126 

,28 

780 SYMBOL 243,24,24,126,126,24,24, 

24,24 

790 SYMBOL 249,255,129,255 

800 RETURN 

810 DATA 21, 90,1, 100,49,106,83, 10B, 

-155,108,171,108,211,104,249,96,285 

,80,311,72,363,64,433,58,-515,58,52 

5,58,539,62,559,78,573,38,589,96,60 

9,110,619,120,627,130,637,144,-1, 

820 DATA 21,90,1.100,1,134,1,156,5, 



'■ES 



>EB 



>LC 



170, 13, 180,21. 186,29, 1B6, 35. 190,39, 

200,39,210,45,214,-39,214,93,214,99 

,210, 105, 193, 109, 180, 109. 162, 115, 14 

6,133,130,155,118,209,110,249,112,- 

287,112,295,112,307,114,313,122,313 

,136.323, 172.323, 180,327, 1B6.333.1B 

6 

830 DATA 333,194,335,194.339,196,34 

7,196,347,214.349,220,353,224.359,2 

24,359.238,363,240,369,242,375,242, 

375, 256, 379, 260, -427, 260. 431 , 260. 43 

7.258,441,254,443,234,451,204,465,1 

84, 481, 180, 499. 1B0, 517, 136, 525, 194, 

535, 196, -5B3. 196, 589,196, 599, 192, 60 

5,186,613 

340 DATA 170,619,142,625,136,629,13 

6,633,136,637.136,-1, 

B50 DATA 21,90,1,100,1,126,11,140,3 

7, 156, 77, 162, -131, 162, 145, 162, 153, 1 

60, 161 , 154, 167, 140, 173, 86, 173.54, 17 

7,44,135,40,-237,40,243.42,247,50,2 

47,92,255,132,261,142,279,143,279,1 

74.2B3, 178,293, 178, 293, 204, 299, 208, 

-351,208,357,208,359,206,359,173,36 

5,174 

860 DATA -407,174.413,174,419,170.4 

55,30,473,74,-541,74,547,73,553,86, 

559,108.567.116,-625,116,633.114,63 

7,10B,-1, 

870 DATA 21,90,1.100,1,112,9.112,13 

,114,19, 120,27, 134, 35, 142. 47, 146,-9 

7, 146. 115, 144, 127, 140, 135, 132, 143, 1 

14, 157. 103,-221, 10B,227, 108.239. 110 

,245, 114,251, 122,259, 13B.265, 144. 23 

5. 148, 303, 14B, 313, 146,323, 138,327,1 

24,329,96,325,36,309,73,263,74,247, 

64.243,42 

380 DATA 249,34,259,28,-301,28.343, 

28,371,28,385,30,397,34,405,40,409, 

4B,415,62, 419, 80, 419, 11B, 421, 124,42 

7,123,441,128,441,174,447.180,461,1 

80,461,214,467,220,-517,220,525,220 

,535.214.543. 196,545. 180,551, 172,55 

7,168,-607,168,615,168,623,166,633. 

158,-1, 

890 DATA 21,90,1,100,1,272,9,278,35 

,2B2. 41, 278, 49,264,53, 238, 65,224, 75 

,218,-125,218.135,220,141,223,145,2 

58,149,264,155,268,-201,268,207,268 

, 213, 264, 219, 250, 223, 234, 225, 200, 22 

1, 178,213, 166, 191, 152, 171, 148. 163, 1 

42, 155, 12B, 153, 108, 157,82,161,66,17 

1,60,-227 

900 DATA 60,233,60,239,64,245,74,25 

1,94,257,104,267,122,273,172,277,22 

0, 285, 230, 291 , 230, 299, 222, 303, 208, 3 

09,194,317,194,325,192,329,188,333, 



/ 



176,337,124,331,116,323,110,315,96, 

309,66,309,42,315,26,323,22,-387,22 

,391,26,393,32,399,120,403,124,411, 

128,417 

910 DATA 123,417,176,419,182,425,18 >NT 

8.435,188,449.220,457,226,465.226,- 

503,226,513,226,519,224,525,216,527 

,206,521, 192,515, 174,509, 136,501, 12 

4,485,100,479,72,479,50,487,30,505, 

20, -559, 20, 563, 20, 569,28, 575,70,581 

,76,589,80,591,B0,-633,80,637,B0,-1 



920 DATA 21,90,1,100,29,108,63,140, : 

81,188,89.256,-301,256,313,262,323, 

268,347,236,361,270,385,256,-551,25 

1,557.222,573,172,587,140,-637,140, 

63B, 140,-1, 

930 DATA 21,90,1,100,25,154,67,186, : 

141,204,-199,204,217,204,255,188,28 

5, 154,285, 112, 269, BO, 235.66, 195, 66, 

167,54,145,32,145,10,-287,10,307,18 

,329,38,361,68,373,120,367,164,369, 

192,377,230,407,276,469,316,517,330 

,593.322,625,330,637,330,-1, 

940 DATA 21,90,1,100,19,174,-65,174 

,-135,174,-177,174,-243,174,279,174 

,-339,174,-383,174,-471,174,-515,17 

4,-555,174,599,174,637,174,-1, 

950 DATA 21,90,1,100,17,76,33,66,55 

,58,79,52,105,56,123,74,137,112,149 

,166,163,220,1B5,256.209,27B,235,29 

0,281,298,371,304.451,296,525,274.5 

41,260,543,236,525,214,479,212,425, 

218,349.238,273,232.223,202,205,160 

,209,144,-273,144,283,144,299,132,2 

91,108 

960 DATA 269,96,243,98,209,90,201,7 

4,207,52,221,40,-277,40,299,32,347, 

24,391,36,435,74,453,128,475,168,-5 

71, 168,595, 1B8, 615,212, 623. 238,623, 

268,613,294,597,310,603,320,623,330 

,637,330,-1, 

970 DATA -1, 

930 RESTORE 9?0:FOR i=l TO 1 1 : READ 

fr, du, es: SOUND l,fr,du,15:F0R j=l T 

es*2.3:NEXT:NEXT:RETURN 

990 DATA 426,40,600,426,50,500,426, 

30,300,426,30,600,358,50,500,379,30 

, 300. 379, 30, 500, 426, 30, 300, 426, 30, 5 

00,451,30,300,426,25,100 

1000 in=l:pe=l:n=0:MODE llINK 0,1:1 

NK 1,24:INK 2,11:INK 3,6:B0RDER 15: 

PEN 3:L0CATE 16,l:PRINr«»#***«": 

LOCATE 16,2::PRINT"«";:PEN 1:PRINT" 

SKYHAUK"::PEN 3:PRINT"«":L0CATE 16, 

3:PRINT"hhhhhhhhh":«IND0H#1, 3,20,6, 

22:PAPER*1,3:CLS»1 



ft 



/ 



/ 



, 



>VF 

HN 



>JS 



;! 
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1010 PEN#1,2:PRINT#1:PRINT#1." Reql 

es":PRINTtl:PRINTIIl," Joyst ick/Clav 

ier":PR!NT#l:PRINT#l," Debutant":PR 

INT#l:PRINTtl," Corrfirie'iPRIHTfliP 

RINT#1," As":PRlNT#l:PRINT»l," Attr 

action":PRINT#l:PRINT#l," Inertie": 

PRINT#1:PRINTI1," Play the Ga«e":ii 

=0 

1020 SOSUB 1030: GOTO 1040 

1030 MOVE 42.308-ii:DRAWR 268,0,2:D 

RAtIR 0,-26:DRAWR -26B,0:DRAWR 0,26: 

RETURN 

1040 WHILE INKEY«="":NEND:IF INKEYi 

471=0 OR INKEY (761=0 THEN PRINT" ": 

IF ii=224 THEN ii=0:GOTO 30 ELSE ON 

n/32+1 GOSUB 1100,1170,1200,1250, 
1300,1350,1370 

1050 IF INKEY(18)=0 OF: INKEV (61=0 T 
HEN INK 1,24: BORDER 1 : MODE 1:END 
1060 IF INKEY(0)=O OR INKEY (721=0 T 
HEN GOSUB 1030: i i=i i+ (32* ( i i>0) ) : GO 
SUE 1030 

1070 IF INKEY(2)=0 OR INKEY (731=0 T 
HEN GOSUB 1030:n=ii-(32«(ii<224)): 
GOSUB 1030 
1080 GOTO 1040 

1090 SOUND i;239,12,8:G0SUB 1030:F0 
R i=l TO 25:NEXT:GOT0 1040 
1100 «IND0W#2, 23,38,7, 21:PAPER#2, 2: 
CLS»2:PEN#2,3:PRINT»2," SKYHAWK est 

un jeu d'arcade se déroulant sur 
plusieurs ta- bleau;-: de diffi-cu 
lte croissante Si vous arri- vez a 
u terme de ces 9 tableaux vous aur 
ez droita une petite nie-"; 
1110 PRINT#2,"lodie : Le TU- leul 
de Schubert <ESPACE> ": GOSUB 1160 

1120 CLS#2:PRINTt2." Votre «ission 
est d atterrir sur les plates-fo 
rmes dispaseesca et la. Malheu reus 
ement vous devez vous posera vitess 
e redui-te pour éviter un crash ! 
L'at-traction et l'i-nertie présent 
essur cette plane-te <ESFACE>" 
1130 GOSUB 1160:CLS»2:PRINT#2," vo 
us poseront des problèmes. Evitez 
aussi les parois ! Avant de commen 
cer la partie vous de-vez sélection 
nerle niveau de difficulté qui vous 

convient et e- ventuellement ch 
anqer diffe- rents paramètres <E 
SPACE>" 

1140 GOSUB 1160:CLSt2:PRINT#2,-(gra : 
vitatlon et inertie). Pour revenir 

au menu pendant une par-tie, appuy 
ez une Fois sur <DELE-TE>. Vous dev 



ez choisir un ni- veau de diff icul 

te avant chaque partie (sans ce-la 

vous accédez au mode entrai-": 

1150 PRIME. "neiBit"). BON >CY 

NE CHANCE":FOR 1=1 TO 25000:NEXT:PA 

PER»2,0:aS#2:RETURN 

1160 WHILE INKEY(47)."0:WEND:F0R i= >HU 

1 TO 50:NEXT:S0UND 1,1000. 50: RETURN 

1170 WIND0N#2.23,38,13.15:PAPER#2,2 >JA 

:CLS#2:PEN#2,3:PRINT»2, " Joystic 

k ou flèches ? J/F 

":«HILE INKEY(53)O0 AND INKEYI45K 

>0:WEND 

11B0 IF UPPER«UNKEY*)="J" THEN jl = >RH 

72:j2=74:j3=75 ELSE jl=0: ]2=8: j3=! 

1190 PAPER#2,0:CLS»2: RETURN >XP 

1200 IF nOO THEN ON n GOSUB 1220,1 >HW 

230,1240 

1210 n=l:ii=64:B0SUB 1030:PETURN >BL 

1220 RETURN >EJ 

1230 ii=96:60SUB 1030:RETURN >XH 

1240 ii=128:G0SUB 1030:RETURN >YD 

1250 IF n<>0 THEN ON n GOSUB 1270, 1 >HT 

280,1290 

1260 n=2:ii=96:G0SUB 1030:RETURN >BY 

1270 ii=64:S0SUB 1030:RETURN >XG 

12B0 RETURN >FE 

1290 ii=128:G0SU6 1030iRETURN >YJ 

1300 IF n<>0 THEN ON n GOSUB 1320,1 >HA 

330,1340 

1310 n=3:ii=128:G0SUB 1030:RETURN >OI 

1320 ii=64:G0SUB 1030:RETURN >XC 

1330 ii=96:G0SUB 1030:RETURN >XJ 

1340 RETURN >FB 

1350 WIN00W#2,23,38,I1,17:PAPER#2,2 >MT 

:CLS#2:rEN#2,3:L0CATE*2,l,2:PRINT#2 

," taux normal de pesanteur 

nouveau taux 
(0/9)":a*="":NHILE INKEY«0"":l€ND 
:WHILE pe<48 OR pe>57:WHILE a»="":a 
»=INKEY*:WEND:pe=ASC(a*l :WEND 
1360 pe=ilO+pe-48l/10:PRINT" ":PAPE >ZH 
R#2,0:CLS#2:RETURN / 

1370 MND0«#2, 23,38,11, 17:PAPER#2,2 >JD 
:CLS*2:PEN#2,3:L0CATE#2,l,2:PRINTt2 
," taux normal d' inertie 

nouveau taux 
(0/9)":a«="":WHIL£ INKEY$<>"":I€ND 
:WH1LE in<48 OR in>57:WHILE a*="":a 
»=INKEY*:«END: in=ASC(a«) :WEND 
13B0 in=(10+in-4B)/10:PRINT" ":PAPE >2P 
R#2,0:CLS#2:RETURN 

1390 FOR 1=1 TO 100:REST0RE 1400:NE >PL 
XT:F0R J=l TO 72:READ il,i2, i3,i4, i 
5,i6:S0UND 1, il.i2»1.2:S0UND 2,i3,i 
4*1.2:S0UND 4,i5,i6*1.2:NEXT:RETURN 
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1400 DATA 119,10,142,10,179,10,119, >PG 

30,142,30,179,30,142,10,179,10,239, 

10, 142, 10, 179, 10, 239, 10, 142, 10, 179, 

10,239,10,142,20,179,20,239,20,179, 

20,239,20,284,20,0,10,0,10,0,10,179 

,10,239,10,284,10,159,30,190,30,239 

.30,142,10,179,10,239,10,134,15,159 

,15,239,15 

1410 DATA 159,5,190,5,239,5,142,40, >HB 

179, 40, 179,40, 0, 10,0, 10,0, 10, 1 19, 10 

,142, 10, 179, 10, 119,30, 142,30, 179,30 

, 142, 10, 179, 10,239, 10, 142, 10, 179, 10 

,239, 10, 142. 10, 179, 10,239, 10, 142,20 

,179,20,239,20,179,20,239,20,284,20 

,0, 10, 0, 10,0, 10, 179, 10,239, 10, 284, 1 

0,159,30 

1420 DATA 190,30,239,30,142,10,179, >JY 

10.239,10,119,7,142,7,239,7,134,7,1 

59,7.239.7,159,7,190,7,239,7,179,40 

,179,40,179,40,0,20,0,20,0,20,179,1 

0,179.10,179,10,159,30,190,30,239,3 

0, 159, 10, 190, 10,239, 10. 159, 10, 190, ! 

0,239, 10, 159, 10, 190, 10,239, 10, 142, 1 

5.179,15 

1430 DATA 179,10,134,5,159,5,179,10 :>BP 

,119,20, 142,20, 179,20,0, 10,0, 10,0, 1 

0, 119, 10, 142, 10, 179, 10, 106,30, 134, 3 

0, 179, 30, 1 19, 10, 142, 10, 179, 10, 142, 1 

0, 179, 10,239, 10, 179, 10, 179, 10,284, 1 

0,159,40,190,40.239,40,0,10,0,10,0, 

10, 159, 10, 190, 10,239, 10, 159,30, 190, 

30,239 

1440 DATA 30,159,10,190,10,239,10,1 >FE 

59, 10, 190, 10,239, 10, 159, 10, 190, 10,2 

39, 10, 142. 15, 179, 15, 179, 10, 134, 5, 15 

9,5,179,10,119,20,142,20,179,20,0,1 

0, 0, 10,0, 10, 1 19, 10, 159, 10, 17 1 ;, 10, 89 

,20, 142,20, 179,20, 119, 10, 142, 10,179 

, 10, 142, 10, 179, 10, 179, 10, 134, 10, 159 

,10,239,10 

1450 DATA 159,10,190,10,253,10,119, >TY 

40,142,40,284,40,0,10,0,10,0,10,119 

, 10, 142, 10, 179, 10,89,20, 142, 20, 179, 

20,119,10,142,10,179,10,142,10,179, 

10,179,10,119,7,142,7.239,7,134,7,1 

59,7,239,7,159,7,190,7,239,7,179,40 

,179,40,179,40 

1460 RESTORE 1470:F0R 1=1 TO 21:REA >AB 

D hl,h2:S0UND l,hl,h2,8:S0UND 2,hl/ 

3,h2,8:S0UND 4,hl/5,h2,8:NEXT:RETUR 

N 

1470 DATA 239,80,213,20,190,20,179, >LP 

20,159,20,142,40,127,40,119,60,0,20 

,119,40,127,20,142,20,159,30,179,10 

,190,20,213,20,239,10,213,10,190,10 

,179,10,159,20 

14B0 RETURN >F6» 




PACK Y 



Laurent LE BAIL 



PACKY est, selon son 
auteur, une modeste adap- 
tation du célèbre "Pac- 
Man ' '. Pourquoi publier ce 
jeu vu et revu ? Il nous a 
séduit par sa ressemblance 
avec l'original et surtout, il 
est 100% BASIC, ce qui ne 
gâche rien. Déplus, il n'est 
pas évident de parvenir au 
but sans se faire attraper 
par un des quatre fantômes. 

f Vous pourrez retrouver l'am- 
biance de Pac-Man (la vitesse en 
moins tout de même) sur plus de 
quatre labyrinthes différents . 
Pour cela, il vous faut taper les 
17 Ko de BASIC qui suivent. 
Quelques précisions : au départ, 
chaque tableau comporte huit 
pilules énergétiques. A partir du 
cinquième et jusqu'au huitième, 
vous devez parcourir les mêmes 
labyrinthes avec deux pilules 
seulement, au-delà il n'y a plus 
de pilules du tout ! 
Quelques astuces : pour visiter 
les différents tableaux un à un, 
faites BREAK (deux fois 
"ESC") puis NV = 3 : GOTO 
100 (par exemple) pour accéder 
au quatrième labyrinthe. En 
effet, les tableaux sont numéro- 
tés à partir de zéro ; la variable 
NV doit donc contenir le 
numéro désiré moins un (NV = 
X-l : GOTO 100). 




PACKY 



10 '» 



INTRO PACKY 



>LB 
>LG 



30 MODE OiSPEED INK 10,10: INK 0,0:1 

NK 1,18: INK 2.24: II* 3,26: INK 4,6:1 

IK 5,2: INK 6,8: INK 7, 15: INK 8,25,20 

:INK 9,1: PAPER 0: BORDER 

40 PLOT 112,384,4 

50 DRAN 112, 256, 4: DRAN 80,384,4:DRA 

N 176, 336, 4: DRAN 80,288,4 

60 PLOT 176,256,2:DRAN 224,384,2:DR 

AN 272, 256, 2: DRAN 176, 320, 2: DRAN 27 

2,320,2 

70 PLOT 352, 384, 5: DRAN 288, 320, 5: DR 

AN 352,256,5 

80 PLOT ÎB4,384,3:DRAN 384,256,3:PL 

0T 448, 384, 3: DRAN 384, 320, 3: DRAN 44 

8,256,3 

90 PLOT 480,384,6:DRAN 512,320, 6:PL 

OT 560, 384, 6: DRAN 480,256,6 

120 Ï.NK 10,6,23:1* 11.2,23: INK 12, 

8,23:1* 13,15, 23:INK 14,0,26 

130 L0CATE 3,16:PEN 1:PRINT"LLB PR 

ODUCTIONS" 

140 L0CATE 3,25:PEN 8:PAPER 9:PRINT 

"Le jeu se charge" 

150 RWpjckyl" 
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XL 



>AU 



>FQ 



>FJ 



>Q0 



>DV 



>MV 




PACKY 1 


10 WtWWI 111 HHHH 


>LA 


#*♦* 




20 ' PACKY 


>LB 


30 emmwH ■ ■» i 


>LC 


Hfi 




40 ' 


>LD 


50 DIH T*(20,251:Din T(20,25):REC=0 >EA 


:REC*="00000":SCO>="00000" 




60 60SUB 3000 


>HA 


70 GOSUB 30000 


>PD 


80 GOSUB 20000 


>PD 


90 SCO$="00000" 


>T6 


100 GOSUB 10000 


>VB 


110 GOSUB 3500 


>PB 


120 GOSUB 5000 


>NK 


130 GOSUB 2000 


>NH 


140 GOSUB 4000 


>PA 


150 GOSUB 6000 


>PD 


160 GOSUB 7000 


>PF 


170 SCO=SDHOOOO0:SCOMRI6HT«(STR»( 


>DH 


SC0),5):L0CATE 1,1: PAPER 1:PEN 15:F 




RINT"SC:";SCTJ$:PAPER 




180 *** TEST FIN DE TABLEAU «♦ 


>RK 


190 IF P=0 THEN SOSO500:IM< 1,9,7 >XH, 


:F0R 1=1 TO 5:F0R N=100 T0 20 STEP 


/ 


-1: SOUND 1,N,1,12:S0UND 2,120-N, 1, 1 




2:NEXT N:NEXT I:INK 1,9:60TO 100 




200 GOTO 130 


>YC 


210 «« GAME 0VER *** 


>RD 


220 PAPER 4:PEN 8:L0CATE 6,I3:PRINT >RD 


"6A(C DVER" 




230 IF REC<SC0 THEN REC=SC0:RECW!I >YD 


BHT«(STR«(REC),5) 






4 






240 FOR PAUSE=1 TO 5000cNEXT:6DTQ 6 



2000 ' ***************************** 

2010 DEPLACEMENT PACKY 

20)20 ' ***************************** 

2030 IF C=C1 AND L=L1 OR C=C2 AND L 
=L2 OR C=C3 AND L=L3 OR C=C4 AND L= 
L4 THEN IF CH=-1 THEN 2200 ELSE FOR 
1=1 TO 40: SOUND 1,10+10*1,2,15:500 
ND 2,5+20*1,2, ISiNEXT I:VI=VI+1:IF 
VI<4 THEN LOCATE 14+VI*2,25:PAPER ! 
:PRINT " ";:PAPER 0:60T0 2150 ELSE 
220 



2040 <=L:Y=C: D=JOY(0! 


>QY 


2050 C=C+!D=4l-iu=8) 


>NR 


2060 L=L+(D=l)-iD=2) 


>NC 


2070 IF C=21 AND L=14 THEN C=l 


>ME 


2080 IF C=0 AND L=!4 THEN C=20 


UH 


2090 IF T(C,L>>2 OR D>8 OR; D=0 THEN 


>TX 


C=¥:L=X:RETURN 





2100 LOCATE Y,X:PRINT " ":PEN 2:L0C >FU 

ATE C,L:PRINT CHRK245+D! 

2110 IF T*(C,L)=CHR$!144) THEN T$(C >PQ 

,L)=" "-.FOR 1=1 TO 5:S0UND 1,100-10 , 
*I,1:S0UND 2,200-20*1, lsNEXT I:SC=S 
C+1*B0:P=P-1 

2120 IF T«(C,L)=CHR»(252i THEN T*CC >DP 
,L!=" ":SC=SC+10:CH=-1:F0R 1=4 TO 7 
:INK I,23:NEXT I:P=P-1:AFTER 1000-N 
V*100 GOSUB 9000:AFTER 1500-NV*100, 
1 GOSUB 9070:F0R 1=1 TO 10:S0UND 1, 
50-5*1, 1,13:S0UND 2, 100-3*1,1, 13:NE 
XT ! 

2130 IF C=C1 AND L=L1 OR C=C2 AND L >NC 
=L2 OR; C=C3 AND L=L3 OR C=C4 AND L= 
L4 THEN IF CH=-1 THEN 2200 ELSE FOR 

1=1 TO 40:S0UND 1, 10+10*1,2, 15:S0U 
ND 2,5+20*1,2, 15:NEXT I:VI=VI+1:IF 
VK4 THEN LOCATE 14+VI»2,25:PAFER 1 
:PRINT " ";:PAPER 0:SOTO 2150 ELSE 
220 

2140 RETURN >FA 

2150 '»«***EFFACT FANTOMES******** >YA 
*#*# 

2160 FOR PAUSE=1 TO 2000:NEXT >XH 

2170 LOCATE Cl.LkPEN 3-5*(T(Cl,Ll) >UN 
=2):PRINT Tt(Cl,Ll):LOCATE C2,L2:PE 
N 3-5*IT(C2,L2)=2):PRINT T»(C2,L2) 
21B0 LOCATE C3,L3:PEN 3-5*(T(C3,L3) >V6 
=2):PRINT T*(C3,L3i: LOCATE C4,L4:PE 
N 3-5*(T(C4,L4)=2):PRINT T*(C4,L4) 



DZA2200 *******FANT0MES MORTS******** >XG, 
**** 

2210 IF C=C1 AND L=L1 AND «1=0 THEN >PU 

Hl=t:60T0 2260 
2220 IF C=C2 AND L=L2 AND M2=0 THEN >PZ 

M2=1:G0TD 2260 
2230 IF C=C3 AND L=L3 AND M3=0 THEN >PE 

M3=1:G0T0 2260 
2240 IF C=C4 AND L=L4 AND M4=0 THEN >QB 

M4=1:S0T0 2260 
2250 GOTO 2040 >MC 

2260 SC=SC+100 >TB 

2270 IF Ml=l AND M2=l AND «3=1 AND >BR 
M4=l THEN B0=5:INK 3,24,26 
2280 FOR 1=1 TO 20:S0UND 1,600-30*1 :>NH 
,2,15:S0UND 2, 700-30*1, 2, 15:NEXT 
2290 SOTO 2040 >MG 

3000 '***************************** >XF 
**## 

3010 ' INITIALISATION >XG 
3020 : ***************************** >XH 
**** 

3030 SYMBOL 245,60,126,219,255,189, >MT 
195,255,219 

3040 SYMBOL 244,60,66,165,129,189,1 >LC 
95,129,219 

3050 SYMBOL 246,44,110,239,235,255, >LC 
255,126,60 

3060 SYMBOL 247,60,126,255,255,235, -LE 
239,110,44 

3070 SYMBOL 249,60,126,239,255,15,2 :>KR 
55,126,60 

3080 SYMBOL 253,60,126,247,255,240, >LD 
255,126,60 

3090 SYMBOL 250,60,126,239,255,15,2 >KK 
55,126,60 

3100 SYMBOL 251,60,126,239,255,15,2 >KC 
55,126,60 
3110 SYMBOL 252,0,0,24,60,60,24,0,0 >AT 



2190 GOTO 110 



3120 MODE >PA 

3130 INK 0,0:INK 1,9:INK 2,24:INK 3 >EB 
,26: INK 4,6: INK 5,2: INK! 6,8: INK 7,1 
5: INK 8,16,24:1* 9,21:INK 10,26: IN 
K 15, 7: BORDER 0: PAPER 
3140 SC=0:A=0:B=0:VI=1:NV=0 />NK/ 

3150 RETURN >FC 

3500 '»*»*INITIAL. PARTIELLE******* >YA 
»*** 

3510 PAPER 1:PEN 2:F0R 1=20 TO 16+V >VZ 

1*2 STEP -2: LOCATE I,25:PRINT CHR»! 

249);:NEXT I: PAPER 

3520 L=24:C=11:PEN 2:L0CATE 11,24:P >RV 

RINT CHR$(249) 

3530 C1=7:L1=10:DL!=0:DC1=-1 />WM 

3540 C2=14:L2=10:DL2=0:DC2=1 >I*J 



/ >Ek43550 C3=8:L3=8:DL3=0:DC3=-1 



* 3560 C4=13:L4=8:DL4=0:DC4=1 
3570 CH=1 


>VN 


>D6 


3580 M1=0:M2=0:M3=0:N4=0:B0=1 


;-xc 1 


3590 RANDOMIZE 


>LJ 


3600 RETURN 


>FC 


4000 ***************************** 


>XG 


*#** 




4010 DEPLACEMENT BLINKY 


>XH 


4020 ' ***************************** 


>XJ 


**** 




4030 IF «1=1 THEN LOCATE Cl.LhPEN 


>FK 


10:PRINT CHR*(244):RETURN 




4040 X=C1:Y=L1 


>XJ 


4050 C1=C1+DC1 


FF 


4060 L1=L1+DL1 


>RK 


4070 IF Cl=21 AND Ll=14 THEN Cl=l 


>YN 


4080 IF C1=0 AND Ll=14 THEN Cl=20 


>YR 


4090 PEN 3-5*(TiX,Y)=2! 


>QU 


4100 LOCATE X,Y:PRINT T$(X,Y) 


>YJ 


4110 LOCATE C1.L!:PEN 4:PRINT CHR$i 

245) 

4120 IF T!C1,L1)=0 OR TiCl,Lli=2 TH 


Gkl 


>KC 


EN RETURN 




4130 DC1=0:DL1=0 


>GE 


4140 IF A=l THEN 4200 


>NK 


4150 IF A=2 THEN 4250 


>NT 


4160 DLl=CH*SGN(L-Lli:IF DL1=0 OR T 


>UC 


IC1,L1+DL1);>2 THEN DL1=0:DC1=CH*SGN 




(C-Cl) ELSE RETURN 




4170 IF DC1=0 THEN DC1=(INT(RND*2)- 


>HE 


0.51*2 




4180 IF T(C1+DC1,L1)>2 THEN A=I:GOT 


>GA 


4130 




4190 RETURN 


>FH 


4200 DLl=(INT(RND*2l-0.5)*2 


>VD 


4210 IF T(C1,L1+DL1)>2 THEN DL1=-DL >CD 
j 


4220 IF T(C1,L1+DL1>>2 THEN A=0:DL1 


>M 


=0: RETURN 




4230 A=2 


>UJ 


4240 RETURN 


;FD 


4250 DC1=CH*SGN(C-C1! 


>PE 


4260 IF T(C1+DC1,L1)>2 THEN A=1:DC1 


>«G 


=0: RETURN 




4270 A=0 


>VA 


4280 RETURN 


>FH 


5000 ' M*************************** 


>XH 


*** 


1 


5010 ' DEPART FANTOMES 


>XJ 


5020 ' *#**#**+*******************#♦ 


>XK 


*** 




5030 LOCATE 9,13:PEN 4:PRINT CHR«(2 >RA 


45!:L0CATE 12,!3:PEN 5:PRINT CHR$(2 




45):L0CATE 10,13:PEN 6:PRINT CHR$(2 




45) : LOCATE 11,13:PEN 7:PRINT CHR$(2 




45) 





/ >*♦ 5040 RESTORE 5150 



>LV 
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5050 FOR F=l TD 4 ;BJ 

5060 FOR 1=1 TO 7 >CF 

5070 READ J,Z >JC 

5080 LOCATE J , I : PEN 3+F:PF:INT CHR«( >8U 
245 i 

5090 FOR PAUSE»! TO lOOiNEXT >NA 

5100 LOCATE J,Z:PEN 3:PRINT T*(J,Zi >DM 

5110 SOUND 1,15,1 >LU 

5120 NEXT I >VD 

5130 READ J,Z:LDCATE J,Z:PEN 3+FjPR >RZ 

INT CHRK245) 

5140 NEXT F >VC 

5150 DATA 9,13,9,12,10,12,10,11,10, :QE 

10,9, 10,8, 10,7, 10, 12, 13,12, 12, 11, 12 

,11,11,11,10,12,10,13,10,14,10,10,1 

3, 10, 12, 10, 11, 10, 10,9, 10,8, 10, 6, 9,8 

,8,11,13,11,12,11,11,11,10,12,10,13 

,10,13,9,13,8 

5160 RETURN ;FF 

6000 '********#**********♦*****#**# >XJ 

«** 

6010 ■ DEPLACEMENT PUNKV >XK 

6020 '**♦*»*#***♦****♦*♦******#**** >YA 

ft*i 

6030 IF «2=1 THEN LOCATE C2,L2:PEN >FQ 

10:PRINT CHR» (244): RETURN 

6040 X=C2:Y=L2 >YC 

6050 C2=C2+DC2 >PG 

6060 L2=L2+DL2 >TE 

6070 IF C2=21 AND L2=14 THEN C2-1 >YU 

6080 IF C2=0 AND L2=14 THEN C2=20 >YX 

6090 PEN 3-5*!T!X,Yi=2) >Qti 

6100 LOCATE X,Y:PR!NT T«(X,Y) >YL 

6110 LOCATE C2,L2:PEN 5:PRTNT CHRti >GB 

245) 

6120 IF T(C2,L2)=0 OR T(C2,L2i=2 TH >KJ 

EN RETURN 

6130 DC2=0:DL2=0 >BJ 

6140 IF B=l THEN 6200 >NQ 

6150 IF B=2 THEN 6250 >NY 

6160 DC2=CH*SGN(C-C2):IF DC2=0 OR T )TH 

(C2+DC2,L2)>2 THEN DC2=0:DL2=CH»SGN 

IL-L21ELSE RETURN 

6170 IF DL2=0 THEN DL2=(INT(RND«2I- >HD 

0.5)*2 

6180 IF T!C2,L2+DL2)>2 THEN 6=1:G0T >GU 

6130 ; 

6190 RETURN >FK 

6200 DC2=(INT(RND*2)-0.5)*2 >VX 

6210 IF T(C2+DC2,L2)>2 THEN DC2=-DC >CU 

2 

6220 IF T(C2+DC2,L2)>2 THEN B=0:DC2 >IU 

=0: RETURN 

6230 B=2 >VB 

6240 RETURN >FF 

6250 DL2=CH»SSN(L-L2) >QE 



A 6260 IF T(C2,L2+DL2!>2 THEN B=l:DL2 
=0: RETURN 
6270 B=0 
6280 RETURN 

*** 

7010 DEPLACEMENT COCA ET COLA 
7020 ' #******++**#***************** 
*** 

7030 IF M3=l THEN LOCATE C3,L3:PEN 
10:PRINT CHR*(244!:G0T0 7170 
7040 X=C3:Y=L3 
7050 C3=C3+DC3 
7060 L3=L3+DL3 

7070 IF C3=21 AND L3=14 THEN C3=l 
7080 IF C3=0 AND L3=14 THEN C3=20 
7090 PEN 3-5*(T(X,Y)=2! 
7100 LDCATE X,Y:PRINT T$(X,Y) 
7110 LOCATE C3,L3:PEN 6:PRINT CHR*( 
245) 

7120 IF T(C3,L3)=0 OR T(C3.L3»=2 TH 
EN GOTO 7170 
7130 DC3=0:DL3=0 

7140 DC3=CH*SGN(C-C3):IF K3=0 OR T 
(C3+DC3,L3)>2 THEN DC3=0:DL3=CH*SGN 
(L-L31ELSE SOTO 7170 
7150 IF DL3=0 THEN DL3=(INT(RND«2>- 
0.5i*2 

7160 IF T(C3,L3+DL3)>2 THEN DC3=0:D 
L3=0 

7170 IF 114=1 THEN LOCATE C4,L4:PEN 
10:PRINT CHR$ 1244): RETURN 
8000 X=C4:Y=L4 
8010 C4=C4+DC4:L4=L4+DL4 
B020 IF C4=21 AND L4=14 THEN C4=l 
8030 IF C4=0 AND L4=14 THEN C4=20 
8040 PEN 3-5*(T(X,Y>=2> 
8050 LOCATE X,Y:PRINT T*(X,Y) 
8060 LOCATE C4,L4:PEN 7:PRINT CHRti 
245) 

8070 IF T(C4,L4)=0 OR TiC4,L4)=2 TH 
EN RETURN 
BOBO DC4=0:DL4=0 

8090 DL4=CH*SGN(L-L4):IF DL4=0 OR T 
(C4,L4+DL4)>2 THEN DL4=0:DC4=CH*SGN 
(C-C4) ELSE RETURN 
8100 IF DC4=0 THEN DC4=(INT(RND*2)- 
0.51*2 

8110 IF T(C4+DC4,L4)>2 THEN DC4=0:D 
L4=0 

B120 RETURN 

9000 ' *##*##***********♦******#**** 
«M 

9010 ' FANTOMES CLIGNOTANTS 
9020 ' *#*#***+♦***#♦♦#♦*♦***+**♦*** 
*** 
♦ 9030 FOR 1=4 TO 7 



■MJA9040 INK 1,1,23 




9050 NE'T I 


>VD 


9060 RETURN 


>FK 


9070 INK 3,26: INK 4,6:1» 


>XK 


,8: INK 7,15 




9080 CH=1:M!=0:M2=0:M3=0: 



VRJ 
>VK 
>FJ 



9090 RETURN 

10000 '#*****************#*#**♦*+** 

10010 ' DECOR 

10020 '**#***#******#***+*****+**♦» 

10030 MODE 0:SPEED I» 10,10 
10040 PEN 8: IF NV<2 THEN PRINT" 
DANS QUEL3UES ":FRINT" INSTANTS 
LA SUITE ":PRINT" DE NOTRE PROSRAM 
ME" 

10050 IF NV=2 THEN PRINT'UN INSTANT 
1 PACKY A":PRINT"PERDU UNE CHAUSS 
URE" 

10060 IF N'v'=3 THEN PRINT" PACKY A 
UNE ENVIE ":PRINT" PRESSANTE. 

":PRINT" EXCUSEZ LE ' ":PE 
N 5: LOCATE 8,15:PRINT"2 ','IE5":LDCAT 
E 3, 17:PRINT"5UPPLEMENTAIRES":VI=VI 

10070 IF NV;>3 THEN PRINT" PACKY RE 
PREND SON ": PRINT" SOUFFLE 
": PRINT" DUR ! DUR ! 

10080 PEN 0: PRINT FREi" ") 

10090 IW=NV+1:P=0:PIL=0:TABL=NV-INT 

(NV/4H4 

10100 PEN 0:PRINT REMAIN(O) :PRINT R 

EMAINi2) 

10110 INK 0,0:INK 1,9:INK 2,24: INK 

3,26: INK 4,6: INK 5,2: INK 6,8: INK 7, 

15: INK B,16,24:INK 10,26:INK 15,7:B 

DRDER 0: PAPER 

10120 IF TABL=1 THEN RESTORE 10270 

10130 IF ÎABL=2 THEN RESTORE 10540 
>HJ 
>UN 10140 IF TABL=3 THEN RESTORE 10800 

10150 IF TABL=0 THEN RESTORE 11060 

10160 FOR L=l TO 25 

10170 FOR C=l TO 20 

10180 READ X 
' 10190 SOUND l,X*5+50,l,i: 

10200 IF X=0 OR X=l THEN P=P+1:PEN 
■FE 3:T$(C,L)=CHR*(144) ELSE IF X=3 THE 
>VB N T$(C,L)=" " ELSE IF X=2 THEN PIL= 

PIL+1:P=P+1:PEN 8:T$(C,L)=CHR$(252) 
>YC ELSE PEN 1:T*<C,L)=CHR*(143> 
>YD 10210 IF X=2 AND NV>4 AND PIL>2 OR 
X=2 AND NV>8 THEN PEN 3:T«(C,L)=CH 
>CK ♦r* ( 144) : X=0 
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10220 T(C,L)=X 

10230 LOCATE C.LiFRINT T$(C,L); 

10240 NEXT:hEXT :LH 

10250 T*(1I,241=" ":P=F'-1 >RA 

10240 LOCATE 1,1: PEN 15:PAPER llPRI >ZV 

NT"SC:";SCO*:LOCATE 12,1:PRINT"REC: 

";REC$:i>EN 15:L0CATE 1.25:PRINT "TA 

B";NV::PAPER 

10270 DATA 4,4,4,4,4,4,4,4,4,4,4,4, >PX 

4,4,4,4,4,4,4,4 

10280 DATA 4,1,0,0,0,0,1,0,0,1,1,0, >PB 

0,1,0,0,0,0,1,4 

10290 DATA 4,2,4,4,4,4,0,4,4,0,0,4, >PC 

4,0,4,4,4,4,2,4 

10300 DATA 4,1,0,1,4,1,1,0,1,1,1,1, >PJ 

0,1,1.4,1,0,1,4 

10310 DATA 4,4,4,0,4,0,4,4,0,4,4,0, >PQ 

4,4,0,4,0,4,4,4 

10320 DATA 4,1,0,1,4,1,0,0,1,1,1,1, >PJ 

0,0,1,4,1,0,1,4 

10330 DATA 4,0,4,4,4,0,4,4,4,0,0,4, >PT 

4,4,0,4,4,4,0,4 

10340 DATA 4,1,0,1,0,1,0,1,0,1,1,0, >PC 

1,0,1,0,1,0,1,4 

10350 DATA 4,0,4,0,4,4,4,0,4,4,4,4, >PV 

0,4,4,4,0,4,0,4 

10360 DATA 4, i^O, 1,0,2, 1,1,0,0,0,0, >PS 

1,1,2,0,1,0,1,4 

10370 DATA 4,0,4,4,4,4,0,4,4,3,3,4, >P0 

4,0,4,4,4,4,0,4 

10380 DATA 4,1,1,0,0,0,1,4,3,3,3,3, >P2 

4,1,0,0,0,1,1,4 

10390 DATA 4,4,0,4,4,4,0,4,3,3,3,3, ;>PD 

4,0,4,4,4,0,4,4 

10400 DATA 0,0,1,1,0,0,1,4,3,3,3,3, >PH 

4,1,0,0,1,1,0,0 

10410 DATA 4,4,4,0,4,4,0,4,4,4,4,4, >FA 

4,0,4,4,0,4,4,4 

10420 DATA 4,1,0,1,0,2,1,1,0,0,0,0, >PD 

1,1,2,0,1,0,1,4 

10430 DATA 4,0,4,0,4,4,4,0,4,4,4,4, >PU 

0,4,4,4,0,4,0,4 

10440 DATA 4,1,0,1,0,1,0,1,0,1,1,0, >PD 

1,0,1,0,1,0,1,4 

10450 DATA 4,0,4,4,4,0,4,4,4,0,0,4, >PW 

4,4,0,4,4,4,0,4 

10460 DATA 4,1,0,1,4,1,0,0,1,1,1,1, >PP 

0,0,1,4,1,0,1,4 

10470 DATA 4,4,4,0,4,0,4,4,0,4,4,0, >PV 

4,4,0,4,0,4,4,4 

10480 DATA 4,1,0,1,4,1,1,0,1,1,1,1, >PU 

0,1,1,4,1,0,1,4 

10490 DATA 4,2,4,4,4,4,0,4,4,0,0,4, >PE 

4,0,4,4,4,4,2,4 

10500 DATA 4,1,0,0,0,0,1,0,0,1,1,0, >NE 

0,1,0,0,0,0,1, 

10510 DATA 



l 4,1,0,0,0,0,1,0,0,1,1,0, >NE 

0,1,4 

i 4,4,4,4,4,4,4,4,4,4,4,4, >PU ♦ 



RFA4, 4,4, 4,4,4,4,4 

10520 RETURN 

10530 LABYRINTHE 2 

10540 DATA 4,4,4,4,4.4,4 

4,4,4,4,4,4,4,4 

10550 DATA 4,1,0,0,0.1,0 

0,0,1,0,0,0,1,4 

10560 DATA 4,2,4,4,4,0,4 

4,4,0,4,4,4,2,4 

10570 DATA 4,0,4,1,0,1,4 

1,4,1,0,1,4,0,4 

10580 DATA 4,0,4,0,4,4,4 

0,4,4,4,0,4,0,4 

10590 DATA 4,1,0,1,0,0,0 

1,0,0,0,1,0,1,4 

10600 DATA 4,0,4,4.4.4,4 

4,4,4,4,4,4,0,4 

10610 DATA 4,1,0,0,1,0,0 

1,0,0,1,0,0,1,4 

10620 DATA 4,4,4,4,0,4,4 

0,4,4,0,4,4,4,4 

10630 DATA 4.1,1,0,1,0,1 

1,1,0,1,0,1,1,4 

10640 DATA 4.4,0,4,0,4,0 

4,0.4,0,4,0,4,4 

10650 DATA 4,1,1,4,2,4,0 

4,0,4,2,4,1,1,4 

10660 DATA 4,0,4,4,1,0,1 

4,1,0,1,4,4,0,4 

10670 DATA 0,1,1,4,4,4,0 

4,0,4,4,4,1,1,0 

10680 DATA 4,4,0,4,1,4,0 

4,0,4,1,4,0,4,4 

10690 DATA 4,1,1,0,1,0,1 

0,1,0,1,0,1,1,4 

10700 DATA 4,0,4,4,0,4,0. 

4,0,4,0,4,4,0,4 

10710 DATA 4,1,1,4,0,4,0, 

4,0,4,0,4,1,1,4 

10720 DATA 4,4,0,4,0,4,1, 

0,1,4,0,4,0,4,4 

10730 DATA 4,1,1,4,0,4,4, 

4,4,4,0,4,1,1,4 

10740 DATA 4,2,4,4,1,0,1, 

1,1,0,1,4,4,2,4 

10750 DATA 4,1,1,4,0,4,1, 

1,1,4,0,4,1,1,4 

10760 DATA 4,4,0,4,0,4,4, 

0,4,4,0,4,0,4,4 

10770 DATA 4,1,1,0,1,0,0, 

1,0,0,1,0,1,1,4 

10780 DATA 4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4 

10790 ' LABIRYNTHE 3 

10800 DATA 4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4 

10810 DATA 4,1,0,1,0,0,0. 





1A 




>DE 


4,4,4.4,4, 


>PX 


0,0,1,1.0, 


.•PB 


4,4.0.0,4, 


>PC 



0,4,4,4,4, 


>PA 


1,0,1,1,0, 


>PH 


4,4,0,0,4, 


.PB 


1,0,1,1,0, 


/PA 


0,4,4,4.4, 


>PD 


1,0,0,0,0, 


>PE 


4,4,3,3.4, 


>PV 


4,3,3,3,3, 


>PU 


4,3,3,3,3, 


;PQ 


4,3,3,3,3. 


>PR 


4,4,4,4,4, 


>PD 


0.1,0,0,1. 


>PL 


4,0,4,4,0, 


>PK 


4,1,0,0,1, 


ïPA 


0,1,0,0,1, 


>PZ 


4,0,4,4,0, 


>PT 


1.1,1,1,1, 


>PD 


1,4,1,1,4, 


>PJ 


0,4,4,4,4, 


PA 


1,0,0,0,0, 


>PH 


4,4,4,4,4, 


>PD 




■■EC 


4,4,4,4,4, 


m 


1,0,1,1,0, 


>PC* 



1,0,0,0,1,0,1,4 

10820 DATA 4,0.4, i. 4. 4. 4,0,4, : 

0,4,4,4,0,4,0.4 

1O830 DATA 4,0,4,1,0,1,4,0,4,4 

0,4,1,0,1,4,0,4 

10640 DATA 4,0,4,4.4.0,4.0,4.1 

0,4,0,4,4,4,0,4 

10850 DATA 4,0,4, 1. 2. 1,4,0,4,0 

0,4,1,2,1,4,0,4 

10860 DATA 4,0.4.4.4.0,4.0,4,: 

0,4,0,4,4,4,0,4 

10870 DATA 4,1,0,0,0,1,0,1,0,1 

1,0,1,0,0,0,1,4 

10880 DATA 4.4,4.4.4,4,4,0.4,4 

0,4,4,4,4,4,4,4 

10890 DATA 4,1,0,0,0,0,1,1,0,0, 

1,1,0,0,0,0,1,4 

10900 DATA 4,0,4,4.4,4,0,4,4.3. 

4,0,4,4,4,4,0,4 

10910 DATA 4,1,0,0.0,0,1,4,3.3, 

4,1,0,0,0,0,1,4 

10920 DATA 4.0,4,4,4.4,0.4,3,3, 

4,0,4,4,4,4.0,4 

10930 DATA 0.1,0,1.0,0,1,4.3.3, 

4,1,0,0,1,0,1,0 

10940 DATA 4,0,4,0.4.4,0,4,4,4. 

4,0,4,4,0,4,0,4 

10950 DATA 4,0,4.1,1,4,1,0,0,1, 

0,1,4,1,1,4,0,4 

10960 DATA 4,0,4.0,4,4.0,4,4,0, 

4,0,4,4,0,4,0,4 

10970 DATA 4,0,4.1.1,4,1,0,0,1. 

0,1,4,1,1,4,0,4 

10980 DATA 4,0,4,1,1,0,1,4,4,4. 

4,1,0,1,1,4,0,4 

10990 DATA 4.0,4,4,4,4,0,4,1,0. 

4,0,4,4,4,4,0,4 

11000 DATA 4,1,1,0,1,4,1,1,1,4, 

1,1,4,1,0,1,1,4 

11010 DATA 4,4,2,4,0,4,4,0,4,1, 

0,4,4,0,4,2,4,4 

11020 DATA 4,1,1,4,0,4,1,1,0.1, 

1,1,4,0,4,1,1,4 

11030 DATA 4,1,4,4,1,0,1,4,4,1, 

4,1,0,1,4,4,1,4 

11040 DATA 4,4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4 

11050 ' LABYRINTHE 4 

11060 DATA 4,4,4,4,4,4,4,4,4,4, 

4,4,4,4,4,4,4,4 

11070 DATA 4,1,0,0,1,0,0,1,4,4, 

1,0,0,1,0,0,1,4 

11080 DATA 4,2,4,4,0,4,4,0,4,1, 

0,4,4,0,4,4,2,4 

11090 DATA 4,1,0,0,1,0,0,1,0,1, 

1,0,0,1,0,0,1,4 

11100 DATA 4,4,4,4,4,4,4,4,4,0, 



1,4, 


.f; 


0.4, 


FF 


1.4, 


,PT 


4,4, 


>P*! 


1,4, 


>PV 


1.0, 


,'PJ 


4,4, 


PW 


0,0. 


>PJ 


3,4, 


PC 


3,3, 


>PH 


3,3, 


>PC 



4,4, 


•■FA 


1,0, 


/PA 


0,4, 


>PU 


1,0, 


>PC 


4,4, 


ïPU 


0,1, 


>PZ 


4,1, 


>PQ 


1,4, 


>PL 


1,0, 


>PQ 


1,'. 


>PG 


4,4, 


>PT 




DC 


4.4, 


>PV 


4,4, 


>PR 


1,4, 


>PU 


1,0, 


>PD 


0,4, 


>PF 
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4,4,4,4,4,4,4,4 

11110 DATA 4,1,0,1,0,1.0,0,0,1,1,0, >!C 

0,0,1,0,1,0,1,4 

11120 DATA 4,0,4,0,4.0,4,4,4,4,4,4, PO 

4,4,0.4,0,4,0,4 

11130 DATA 4,0,4,0,4,1,0,1,0,0,0,0, : PL 

1,0,1,4,0.4,0,4 

11140 DATA 4,0,4,0,4,0,4,0,4,4,4,4, >PJ 

0,4,0.4,0,4,0,4 

11150 DATA 4,0,4,0,4,1,1,1,0,0,0,0, >PQ 

1,1,1,4,0,4,0,4 

11140 DATA 4,0, 4, 0,4. 4, 0,4, 4, 3, 3,4, >FT 

4,0,4,4,0,4,0,4 

11170 DATA 4,0,4,1,0,0,1,4,3,3,3,3, ^PD 

4,1,0,0,1,4,0,4 

11180 DATA 4,0,4.4,4,4.0,4,3,3,3,3. >PB 

4,0,4,4,4,4,0,4 

11190 DATA 0,1,0,1,1,0,1,4,3,3.3,3, ;PT 

4.1,0.1,1,0,1,0 

11200 DATA 4,0,4,1,1,4,0,4,4,4,4,4, >PK 

4,0,4,1,1,4,0,4 

11210 DATA 4,0,4,4,0,4,1,0,1.0,0,1, >PU 

0,1,4,0,4,4,0,4 

11220 DATA 4,1,0,0,1,4,1,0,1,4,4.1, >Pf) 

0,1,4,1,0,0,1,4 

11230 DATA 4,0,4.4,4,4,0,4.4,1,1,4, >PV 

4,0,4,4,4,4,0,4 

11240 DATA 4,0,4,1,0,0,1,0,0,1,1,0, >P6 

0,1,0,0,1,4,0,4 

11250 DATA 4,0,4,0,4,4,4,4,4,0,0,4, >PV 

4,4,4,4,0,4,0,4 

11260 DATA 4,0,4,1,0,1,0,1,0,1,1,0, >PL 

1,0,1,0,1,4,0,4 

11270 DATA 4,0,4,1,4,1,0,1,4,4,4,4, 'PL 

1,0,1,4,1,4,0,4 

11200 DATA 4,2,4,0,4,0,4,4,4,1,1,4, >PW 

4,4,0,4,0,4,2,4 

11290 DATA 4,1.4,1,0,1,0,0,0,1,1,0, >Pf 

0,0,1,0,1,4,1,4 

11300 DATA 4,4,4,4,4,4,4,4,4,4,4,4, PR 

4,4,4,4,4,4,4,4 

20000 **************************** >CH 

»** 

20010 PRESENTATION >CJ 

20020 '**************************** >CK 

*** 

20030 MODE 0: PAPER >NN 

20040 BPEED I» 150,150 >9E 

20050 PLOT 112,384,4 >NG 

20060 DRAW 112,256, 4:DRAW 80,384,4: >GT 
DRAW 176, 334, 4: DRAW 80,288,4 
20070 PLOT 176,256,2:DRAW 224,384,2 >DH 
:DRAW 272, 256, 2: DRAW 176,320,2:DRAW 
272,320,2 

200BO PLOT 352,384,5:DRAW 288,320,5 >RR 
:DRAW 352,256,5 



20090 PLOT 3S4,3B4,3:DRAW 384,256,3 
:PLOT 448,384, 3: DRAW 384, 320, 3: DRAW 
448,256,3 

20100 PLOT 480, 384, 6: DRAW 512,320,6 
:PLOT 560,384, 6:DRAW 480,256,6 
20110 INK 10,6,23:1»: 11,2,23:11*: 1 
2,8,23:1» 13,15,23:1» 14,0,26 



20120 PEN 10:L0CATE 1,12: PAINT CHR* 
!245i;:PEN 3:PRINT " .."::PEN 2:PRI 
NT "BL1NKY"::PEN 14:PR1NT ": "j 
20130 PEN IkLDCATE 1,14:PR!NT CHR* 
i245);:PEN 3:PRINT " ,.";:PEN 2:PRI 
NT "PUNKY ";:PEN 14;PRINT ": "; 
20140 PEN 14:L0CATE 13,15:PR!NT "10 
PTS" 



20150 PEN 11 
(245.!;: PEN : 
NT "COCA "| 
20160 PEN i: 
(245)::PEN : 
NT "COLA ": 



LQCATE 1,16:PRINT CHR» 
PRINT " .."::PEN 2:PRI 
PEN 14: PRINT ": "; 
LOCATE 1.18: PRINT CHR» 
PRINT " ,."::PEN 2:PRI 
PEN 14: PRINT ": ": 



20170 PEN S:LOCATE 1.20:PRINT CHP:»! .ïi 



2i::PEN 3: PRINT 



10 P 



1,22: PRINT CHR* i 
1 PT "; 



,24:PRINT 



: PRINT" APP 



TS": 

20180 PEN 3:L0CATE 

144s;" 

20190 FOR 1=1 TO 2 
20200 PEN 2: LOCATE 
POUR JOUER 
20210 PEN 9:L0CATE 1, 
UYEZ SUR FEU ": 

20220 FOR PAUSE=1 TD 1000:D=J0Y(0): 
IF D=14 THEN 20280 ELSE NEXT 
20230 PEN 9: LOCATE 1.24: PRINT "score 

record" 
20240 PEN 2:L0CATE 1,25:PR1NT sco»; 
SPACE*UOI;rec«; 

20250 FOR PAUSE=1 TO 1000:D=J0Y(0): 
IF D=16 THEN 20280 ELSE NEXT 
20260 NEXT I 
20270 GOTO 25000 
20280 SOUND l.FLUSH 
20290 RETURN 

25000 ' ****#*********#****#******** 
*#** 

25010 ' PRESENTATION 2 
25020 ' #*##******+**#*******+****** 
**** 

25030 «ODE 1:1» 1,6 
25040 PEN 2:L0CATE lB,i:PRINT"PACKY 

25050 LOCATE 6,4:PEN 1:PRINT"REALIS 
AT ION : LE BAIL LAURENT" 
25060 LOCATE 1,6:PEN 1:PRINT"C0NCEP 
TION DES LABYRINTHES ET AIDE A LA 



SAISIE : LE BAIL KATIA" 

25070 LOCATE I.lOiPEN 3:PRINT"8UT D B8 
U JEU : MANGER TOUTES LES PIECES 

AFIN D ACCEDER AU TABL 
EAU SUIVANT." 

25080 LOCATE 1, 14:PRINT"«ANGER UNE >FU 
PASTILLE REND LES FANTOMES COMEST 
IBLES PENDANT UNE DUREE LIMITEE. " 
25090 LOCATE 1,17:PRINT"4 FANTOMES >LR 
MORTS DONNENT 5 POINTS PAR PIECE 
MANGEE." 

25100 LOCATE 1,20:PRINT"AU TABLEAU >RM 
4, 2 VIES VOUS SONT AJOUTEES." 
25110 LOCATE B,22:PEN 1:PRINT"UTILI >FF 
SEZ LA MANETTE DE JEU' 
25120 LOCATE 4,25:PEN 2:PRINT"P0UR R6 
JOUER, PRESSEZ LE BOUTON FEU" 
25130 FOR PAUSE=1 TO 4000:D=J0Y(0! : >Jk 
IF DOi6 THEN NE'«T:GOTO 20000 
25140 SOUND l.FLUSH NE 

25150 RETURN MF 

30000 '**************************** CJ 
**** 

30010 MUS I BUE >CK 
30020 '**************************** 'DA 
»+** 

30030 RESTORE 30110 >NK 

30040 ENV 1, 15,-1, 10:ENT 1,10,4,1,1 FR 
,-20,1 

30050 READ BB.CC EB 

30060 IF BB=0 THEN RESTORE 30110:GO >JN 
TO 30050 

30070 PER=ROUND (125000/ !440* (2" <(BB )NR 
-101/12)))) 

30080 SOUND 1,PER/2,CC*2, 13,1, 1 ;YX 
30090 SOUND 2,PER/4,CC»2,13,1, 1 >YB 
30100 ON SQil) GOSUB 30050:RETURN )AS 
30110 DATA 1,5,3,5,5,10,8,10,8,10 >YG 
30120 DATA 10,10,8,10,5,10,1,10,1,5 >ZP 

30130 DATA 3,5,5,10,5,10,3,10,1,10 >ZB 
30140 DATA 3,20,3,10,1,5,3,5,5,10,8 >ZA 

30150 DATA 10,8,10,10,10,8,10,5,10 )ZJ 
30160 DATA 1,10,1,5,3,5,5,10,5,10,3 ;ZW 

30170 DATA 10,3,10,1,20,1,10,6,20,6 -ZU 

30180 DATA 20,10,10,10,20,10,10,8 >YA 
30190 DATA 10,8,10,5,10,1,10,3,20,3 >ZY 

30200 DATA 10,1,10,5,10,8,10,8,10 >YZ 
30210 DATA 10,10,8,10,5,10,1,10,1,5 >ZP 

30220 DATA 3,5,5,10,5,10,3,10,3,10 >ZD 
30230 DATA 1,40,0,0 >LM « 
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VOLUMES 



Emmanuel GUILLARD 



Chose promise, chose due. 
Après avoir totalement ex- 
ploré les surfaces, il reste 
encore à tâter les volumes. 
(Attention pas ceux de 
l'Encyclopaedia Universalis 
ni ceux de Kartine : c'est 
défendu !). 

La troisième dimension 
vous apportera certaine- 
ment de grandes joies. Le 
mode d'emploi du pro- 
gramme est similaire à celui 
de son prédécesseur et de 
toute façon très accessible. 




10 ON ERROR GOTO 5620 >PP 

20 ' ;LB 

30 ' SURFACES >LC 

40 ' >LD 

50 ' MENU PRINCIPAL >LE 

60 ' >LF 

70 MODE 2:SUI=CHR»i24):SURF=l:G0SUB >JZ 
5580 

80 L0CATE 26,6:PRINT SU»; "CUBE"; SU» >AX 
;SPC(11);SU1»;"PARAUELEPIPEDE":SU1 
« 

90 LKATE 26,8:PRINT SU2»; "CYLINDRE >BV 
";SU2t;SPC!7);SU3S; "CYLINDRE CREUX" 

:SU3« 

100 L0CATE 26,10:PRINT SU4»; "PYRAMI >NX 

DE " ; SU4t; SPC ( 7 ) : SU5* ; " TRONC DE PYRA 

MIDE";SU5« 

110 L0CATE 26,12:PRINT SU6«;"CDNE"; >BR 

SU6»;SPCC1);SU7»;"TR0NC DE C0NE";S 

U7« 

120 L0CATE 26,14:PRINT SU8»; "SPHERE >LT 

";SU8»;SPC(9I ;SU9«; "CALOTTE SPHERIQ 

UE";SU9« 



130 L0CATE 26.16;PRINT SU10»; "TONNE >NT 

AU":SU10*;5PC(8);SU1U;"Z0NE SPHERI 

QUE";SU11$ 

140 ' >RF 

150 ' CHOIX >RG 

160 ' >RH 

170 IF INKEY(8)=0 THEN SURF=SURF-1: >L6 

GOTO 240 

180 IF INKEY<0)=0 THEN SURF=SURF-2: >LA 

GOTO 240 

190 IF INKEY(1)=0 THEN 5URF=SURF+1: >LA 

GOTO 250 

200 IF INKEY(2)=0 THEN SURF=SURF+2: >LU 

GOTO 250 

210 IF INKEY(91=0 THEN RUTSURV0L" >CC 

' K7 

220 IF INKEYUB)=0 THEN ON SURF GOS >PX 
UB 400.770,1180,1540,1930,2400,2670 
, 3110,3590.3860,4230, 4590:G0T0 80 

230 B0T0 170 m:. 

240 IF SURF<1 THEN SURF=12 >VN 

250 IF SURF>12 THEN SURF=1 >VP 

260 ON SURF G0SUB 270,280,290,300,3 >UP 
I 
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10,320,330,340,350,360,370,380! 



270 SU*=CHR«(24):SU1»=" 
11*="";SU10«="":RETURN 
280 SU1*=CHR»(24):SU»=" 
3*="":SU11«="":R£TURN 
290 SU2*=CHR*(24):SUS="' 
3$="":SU4»="":RETURN 
300 SU3t=CHR*(24):SUl»=' 
U4*="":SU5«="":RETURN 
310 SU4»=CHR*(24):SU2*=' 
U5*="":SU6«=":RETURN 
320 SU5«=CHR«(24):SU3*=' 
U6»="":SU7*="":RETURN 
330 SU6*=CHR»(24):SU4«=' 
U7«="":SU8«="":RETURN 
340 SU7«=CHR*(24):SU5*=' 
U8*="":SU9*="":RETURN 
350 SU8«=CHR»(24):SU6*=' 
U9«="":SU10«="":RETURN 
360 SU9*=CHR*I24):SU7«=' 
U10S="":SUI1*="":RETURN 
370 SU10$=CHR*(24):SUt=" 
U9»="":SUU*="":RETURN 



':SU2»= 
':SU2*= 
:SU1«=' 
":SU2fr 
":SU3* 
":SU4V 
":SU5V 
":SU6* 
":SU7I= 
":SU8*= 
":SU8*= 



GOTO 

":SU >DD 
":SU >CB 
":SU >BA 
S >CB 
S >CH 
S >CP 
S >CN 
S >CC 
S >DE 
S >EH 
S >DV 



380 SUll$=CHR$!24!:SU10«=""sSU9«= 

iSU«»":SUl$="":RETlBN 

390 cube 

400 MCDE 2:S0SUB 5400: GOSUB 5590 

410 PLCT 320.200,13:DR»NR -100.0:DR 

AWR 0,1Q0:DRAWR 100.0:DRAWR O.-iOO 

420 PLOT 220,200:DRAHR -17,0:DRAWR 

O.lOOiDRflNR 17.0 

430 PLÛT 203,200:DRAW -5.10:PL0TR 

!1.0:DRAWP -5,-10:PLDT 203.300:ORAH 

F -5,-10:PLCTR 11.0:DRAHR -5.10 

440 PLDT 220.200:DRAt« 0,-17jDRAWR 

;jO.O:DRA»R 0.17 

450 PLDT 220,!33:DRAWR 10.3:PL0TR j 

,-ll:DRAWF: -10.5:PL0T 320. 183: DRAW 

-10,5:FL3TR 0,-!l:DRAWR 10,5 
460 PLDT 320,200:DRAWR -70.120 
470 FLOT 350.220:DRANR -100,0:DRANF . 

0,100:DRAWR 100.0:DRAWR 0.-100 
430 PLOT 320.200:BRAN 350,220:PL0T 
220.200:DPAW 25O.22C:PL0T 220.300:0 
RAti 250, 320: PLOT 320, 300: DRAW 350.3 

490 LOCATE 2o,10:PRÏNT "a":LOCATE 3 
4,14:PRINT "a":LOCATE 35,9:PMNT "e 

500 tol$=CHF*24!:to2S=" !, :to3*="" 

510 fo=l 

520 LOCATE I3,59,6:PRINT »3.<ol$i"V 

=a' ! :CHR*i254i:to!« 

530 LCCATE «3.59. 12:PF.ÏNT #3.to2*;" 

Ao=6a":CHR»(255):<o2* 

540 LOCATE 13,59. 18: PRINT I3.*>3«:" 

e=a 3" : to3i 

550 radicaux 

360 PLOT 488.128:DRAtlR 3.-14:DRAWR 

B.i4:DRAWR 16.0 

570 IF !N*:EV!I8)=0 THEN 640 

530 IF INKEY<471=0 THEN 610 

590 IF INKEY<9)=0 THEN CLS:RETURN 

600 GOTO 570 

610 to=to+l:IF fo>3 THEN fo=l 

620 ON te GDSUB 630, 640, 650: GOTO 52 

630 +oiî=CHRt{24j :fo2$= H ' ! :Fo3t= r '":R ! 

ETURN 

640 to2*=CHR*<24):toI*="":fo3*="' ! :F 

ETURN 

650 to3*=CHR*(24):fol*=" n ;to2*= M ":R 

ETURN 

660 CALL S:BB03:CLS#1:0N <o 60SUB 67 

0,700,730:CL5ilî60SUB 5500SS0SUB 55 

90: GOTO 500 

670 tabl=2:tab2=2:GDSUB 5010 

680 vo!u=R0UNDicol"3,4i:L0CATE #1,2 

,8:PRINT#l,"Le volume est de :":PRI 

NT 11," "ivolu;" c«":CHR«i254);" .' 



690 CALL 4BB06: RETURN 

700 tab!=2:tab2=2:G0SUB 5010 

710 AIRE=ROUNû(6»C01*2.4):L0CATE 11 

,2,3:PRINT#l."La surface totale":PR 

[NT 11," est de : ":aire;" :»":CHP» 



720 CALL &PB06: RETURN 

730 tabl=2:tab2=2:G0SUB 5010 

740 dia=R0UND(col»3QR(3!.4):L0CATE 

tl,2,8:PRINTH,"La diagonale est de 

":PRINT 11," "idia;" ci ." 

750 CALL J.BB06: RETURN 

760 parallélépipède 

770 MODE 2:G0SUB 5400:GOSUB 5390 

780 PLOT 320. 200, 13: DRAW! -100,0:DR 

AWR 0.50: DRAW 100,0:DRAWfi 0,-50:DR 

AWR 50.30:DRAWR 0,50:DRfltR -100,0:D 

FAWR 0,-50:DRAWR 100,0 

790 PLOT 220,20O:DRAWR 50.3C:PL0T 3 

20.250:DRAWR 50,30:PL0T 220,250:DRA 

m 50,30 

BOO FLOT 320.200:DRAWR 0,-10:DRAWF 

-B,4:H0VER û.-8:DRAWR 8,4:DRAWR -10 

0,O:DRANR B,4:M0VER 0,-8:DRAWR -8,4 

:DRAW 0.10 

810 PLOT 320,200:DRAKR 20,0:DRAWR 5 

0,30:DRAWR -20.0 

820 PLCT 320. 200: DRAW -50,80 

830 PLOT 220,200:DRAWR -20,0:DRAHR 

-4,8:M0VER B,0:DRAWR -4,-B:DRAWR 0, 

50:DRAKR -4.-8iH0VER B,0:DRAHR -4.8 

: DR AWR 20.0 

840 LOCATE 25,!l:PRlNT"h":L0CATE 34 

,14:PRINT"a":L0CATE 46, 12:PR!NT"b": 

LOCATE 3S.!l:FRINT V 



TU 


850 Fol*=CHR$(24i:fo2«=' ":*o3*="" 


>ZC 




860 fo=l 


>YK 


UR 


.370 LOCATE »3,59,6:PRINT l3,fol«;"V 


>RC 


UP 


=a.b.h":tol* 




CJ 


880 LOCATE 13,59, 12: PRINT »3,fo2$;* 


>BG 


ZE 


Ao=2iab+bhtah)":fo2* 




WG 


890 LOCATE 13,59. IBiPRINT t3,Fo3*;" 


>QT 


CL 


e= a"iCHR*(255'i:"+b":CHR$(255):"+h" 
:CHR*(235);fo3« 




m 


900 radicaux 


;RK 




910 PLOT 47B.)26:DRAWR 6,-!4:DRAWF: 


>TQ 


m 


6, 14:DRAWR 64,0 






920 IF INKEYI 181=0 THEN 1010 


■ VD 


m 


930 IF INKEY (471=0 THEN 960 


>ux 




940 IF INKEY(9)=0 THEN CL5:RETURN 


>CH 


sn 


950 GOTO 920 


>AB 




960 fo=fo+i:IF fo>3 THEN fo=l 


>XG 




970 ON Fo 60SUB 980,990, 1000: BOTO 8 


>DT 


m 


70 




Fï 


980 tol*=CHR*<24):fo2»="":fo3$="":R 
ETURN 


>HD 




990 Fo2J=CHR$(24!:fol*="":Fo3*="":R 


HE 



ETURN 

1000 +o3*=CHRt (24> : *ol î=" " : +o2î="" : Jr 
RETURN 

1010 CALL sBB03:CLSIl:ON fo GOSUB 1 >ME 
020, 1070, 1120:0.511: BOSUB 5500:GOSU 
B 5590: GOTO 850 

1020 TAB1=2:TAB2=2:G0SUB 5010 XD 
1030 TABt=2:TAB2=6:G0SUB 5040 XM 
1040 TAR1=2:TAB2=10:G0SUB 5P0 >YN 
1050 V0L=R0UNDiC01»C02*HAUT,4S:L0CA >TB 
TE ll,2,14:PRINTIl,"Le volume est d 
e :":PRINT 11," "jvoll" M"iCHR»l25 
4)i" ." 

1060 CALL !<BB06: RETURN >RJ 

1070 TAB1=2:TAB2=2:G0SUB 5010 U 
1080 TAB1=2:TAB2=6: GOSUB 5040 <T 
1090 TABi=2:TAB2=10:60SUB 5170 >YT 
1100 AIRl=R0UNDi2*((C01»C02!+(C02*K >VY 
AUT)+!C01»HAUT)i,4):L0CATE 11,2.14: 
PRINTI1, "L'aire totale est":FRINT I 
1," de":airl;" c«":CHR*(255): " ." 
1110 CALL IBBOos RETURN RE 

1120 TAB1=2:TAB2=2:G0SUB 5010 XE 
1130 TAB1=2:TAB2=6:G0SUB 5040 >XN 
1140 TAB1=2:TAB2=10:G0SUB 5170 >YN 
1150 dia=R0UNDi30Rîcol"2tco2'2*haut UZ 
2),4):L0CATE 11,2, 14:PRINTI1. "ls d 
iaqonale est de':PRINT 41," ";dia:" 

ClT! ." 

1160 CALL !<BB06:RETURN >RK 

1170 cylindre >¥B 

1180 MODE 2:G0SUB 5400:60SUB 3590 AU 

1190 DEG "ïC 

1200 PLOT 360,180:F0R Ol TO 360 5 >FE 

TEP lOlDRAW 320+40*C03ifï>. 180+20*5 

IN(f7.!:NEXT 

1210 PLOT 360,360:FOR «=1 TO 3o0 5 >FF 

TEP 10:DRAW 320+40«C0S<«! ,360+20«S 

IN(«):NEXT 

1220 PLOT 360,180:DRAWF: 0,130: PLOT >XH 

280, 180: DRAW 0,130 

1230 PLOT 360, 180: DRAW: 0,-60:DRANR >NH 

-8,4:H0VER 0,-8:DRAWR B,4:DRAWR -8 
0,0:DRAWR 8,4:M0VER 0,-8:DRAWR -8,4 
:DRA«R 0,60 
1240 PLOT 280,130:DRAMR -30,0:DRAWR RB 

-4,8:t10VER 8,0: DRAW -4,-8:DRAWR 
,180:DRAWR -4,-8:N0VER 8.0:DRA* -4 
,B:DRAIIR 30,0 

1250 LOCATE 32,B:PRINT "h":LOCATE 4 :TV 
1,18:PRINT "d" 

1260 Fol$=CHR«f241:«o2*="":fo3«= ,! " ;>AC 
1270 fo=l >EB 

1280 LOCATE »3.59,6:PRINT «3, toi*:" FC 
u=((";CHR*(184);".d";CHR$i255):")/4 
l.hVol» 
1290 LOCATE 13,59, 12:PRINT #3.(o2*i >HX 
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"A«=';CtiR*il84);".d.h";fo2* 

1300 LOCATE 13,59, 18:PRINT !3,fo3*i NV 

"Ao=";CHR*(lB4);".d.ir+h)";fo3» 

1310 IF INKEY!18)=0 THEN 1400 >VE 

1320 IF INKEY(47>=0 THEN 1350 >HD 

1330 IF INKEYi9i=0 THEN aS: RETURN .CL 

1340 BDTQ 1310 >MA 

1350 fo=fo+l:IF fo>3 THEN 4o=l >XF 

1360 ON fc GOSUB 1370, 1380, 1390:G0T >SD 

Q 12B0 

1370 fol«=CHR»(24!:fo2*«"":fo3«=": JJ 

RETURN 

1380 Fo2$=CHR*!24):tol*=" ,, ;<o3t="": Jl: 

RETURN 

1390 fo3$=CHR*i24!:tal*=" ,, :ta2l= "': jl 

RETURN 

1400 CALL .IBB03:CLS»1:0N fo GD5UB 1 >PY 

410, 1450, 1490: asti :60SUB 55O0:SOSU 

B 5590:GDTD 1260 

1410 TABi=2:TAB2=2:60SUB 5250 >XN 

1420 TAB1=2:TAB2=6:G0SUB 5170 >XV 

1430 volu=R0UND(!(Fl*d2'2)/4)*riaut, >HV 

4!:L0CATE »1,2,10:PRINT#1, "Le volum 

e est de :":PRINT 11," "ivolui" Ci" ' 

;CHR*>;254!;" ." 

1440 CALL &BB06; RETURN >RL 

145(1 TAB1=2:TAB2=2:G0SU8 5250 :-XT 

1460 TAB1=2:TAB2=6:G0SUB 5170 >XZ 

1470 air2=R0UND(PI*d2*haut.4):LCCAT 10 

E #t,?.,lô:PRINT#i."La surface later 

ale":PRINT 11," est de :"iair2:"c«" 

;CHR«(255i:" ." 

1480 CALL &BB06: RETURN Rfl 

1490 TAB1=2:TAB2=2:G0SUB 5250 : XX 

1500 TAB1=2:TAB2=6:B0SUB 5170 XU 

1510 airl=ROUND(PÏ«d2*((d2/2)+haut! ZH 

,4):L0CATE #1,2, 14:PRINTI1, "La surf 

ace totale":PRINT 11," est de :";a; 

di ! an";CHR$(255);" ." 

1520 CALL JcBB06:RETURN >RK 

1530 ' cylindre creux >YB 

1540 MODE 2:BDSUB 5400:G05UB 5590 AU 

1550 DEG ;YC 

1560 PLOT 360,1SO:FOR fï=l TO 360 S >GF 

TEP 10:DRhW 320+40*COS(fï),180+20*S 

INif/.l:NEïT 

1570 PLOT 360,360:F0R fï=l TO 360 3 >GG 

TEP 10:DRMi 320+40*COSIf7.),360+20«S 

INif7.!:NEXT 

15B0 PLOT 360, 180: DRAWR 0,!80:PL0T :XT 

280,isoi mm o.iBo 

1590 PLOT 340,180:F0R f%=l TO 360 5 >SD 

TEP 10:DRAW 320+2O*C0S(fï), 180+10*5 

IN(f7.):NEXT 

1600 PLOT 340,360:F0R f7.=l TO 360 S >FD 

TEP 10:DRAW 32O+2O*C0S(f;:i ,360+10+3 

IN<fï):NEXT 



1610 PLOT 340,36u:DRAWR 0,-180:PL0T >W 

300,180:DF;AI* 0,180 
1620 PLOT 360, 160: DRAWR 0,-60: DRAWR >NL 

-8,4:M0vïR 0,-8:DRAWR 8,4:DRAWF; -3 
0,0:DRAWR B.4:M0VER 0,-B:DRAWR -B.4 
: DRAWR 0,60 
1630 PLOT 280,180:DRAWR -3û.0:DRAWR i-RE 

-4,8:«0VER B,0:DRfiWR -4, -3: DRAW 
,180: DRAWR -4,-8:MDVER 8,0: DRAWR -4 
,B:DRAWR 30,0 

1640 PLOT 340,270:DRAWR -40,0 >WZ 
1650 LOCATE 32,8:PRINT "h":LfXATE 4 , T T 
l.i8:PRÏNT "D" 

1660 LOCATE 41,8:PRINT "d" >UM 
1670 fol«=CHR*!24!:fo2*=" -UK 
1680 fo=l >EG 

1690 LOCATE #3,59,S:PRINT 13, fol»: " >F6 
V=((":CHR*<lB4!:".h)/4i*<D":CHR*(23 
5);"-d";CHR*(255);"P;fol« 
1700 LOCATE #3,5?,16:PRINT !3,fo2»i FE 
"h= ( 4 . V i / ( " ; CHRt ( 1B4 ! ; " (D " ; CHR» î 255 
;:"-a";CHR«i255!:"!)";fo2» 
1710 IF INKEYU8)=0 THEN 1790 >WN 
1720 IF INKEY!47)=0 THEN 1750 Mf, 
1730 IF INKEY|9)=0 THEN ClSiRETURN >C0 
1740 GOTO 1710 >«J 

1750 fo=fo+l: IF fo>2 THEN fo=l >XJ 
1760 ON fo GOSUB 1770, 1780:G0T0 169 CE 


1770 fol«=CHR*(24):fo2*="":RETURN Bf! 
1780 fc2*=CHR*(24;:fol$=" , :RETUF:N BF 
1790 CALL MB03:CLS#i:0N fo BOSbl- 1 GZ 
800,1840: asti: GOSUB 5500:G0SUB 559 
OsGOTO 1670 

1B00 TAB1=2:TAB2=2: GOSUB 5170 .-XT 
1810 TAB1=2:TAB2=6:G0SUB 5220 >XU 
1320 7AB1=2:TAB2=10:GDSUB 5250 >YT 
1B30 IF d2>dl THEN LOCATE #1.1,1: PP >AE 
INT CHR»!7>!s60TQ 1820 
1840 volu=R0UM)(i(PI*hauti/4)«(dl 2 >X0 
-d2'2),4l:L0CATE #1,2, 14:PRINTI1."L , 
e volume est de : ": PRINT #1," M ;voi ' 
u; u cm";CHR*i254!;" ." 
1850 CALL IBB06: RETURN >RR 

1860 TAB1=2:TAB2=2:605UB 5370 >XB 
1870 TAB1=2:TAB2=6:G0SUB 5220 >XA 
1BB0 TAB1=2:TAB2=10: GOSUB 5250 >¥2 
1B90 IF d2dl THEN LOCATE 11,1, lsPR >AT 
INT CHR*(7);:G0Ï0 1880 
1900 haut=R0UND((4«vol)/iPI»idl'2-d >KH 
2 2)!, 4): LOCATE »l,2,14:PRINT#i,"La 

hauteur est de :":PRINT 11," ";hau 
t;" cm." 

1910 CALL &BB06: RETURN >RN 

1920 ' PYRAMIDE >¥E 

1930 «ODE 2: GOSUB 5400: GOSUB 5590 >AX 
1940 PLOT 360,200:BRAWR -100,O:DRAW >NZ 
I 
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R 40, 30: DRAWR 106,0: DRAWR -40.-30 
1950 DRAWR -60,3Û:H0VER iOO.O:DRAWR 
-140,-30 



i:DRAWR -30,-90:11»' 
-90:hWER -40.-30 



1960 DRAWR /0.1JU 

ER 30,90:ORAWR 

:DRAWR -30.120 

1970 DRAWR 0,-103:HJVER O.lOSsDRANR 

50,-105 

1930 MOVER -50,0:DRA*F -100.0: DRAW 
-4.8:I1CVER S,0:E'RAWR -4.-6:DRAWF 
,105:DRAWR 4.-3:M0 ! .€R -3.0:DRAUF 4. 
8:DRAWR 100,0 

1990 S10VEF 35,-45:DRAWR 10,30:IWER 
-10,-55:DRAWR 40.5 
2000 Mu'vE 360,200: DRAWF 0,-20:DRAWR 
-8,4:«0VER 0,-8:DRAi« 6,4:DRAWR -1 
00,0: DRAW 8, 4: MOVER 0,-B: DRAWR -8, 
4: DRAWR 0,20 

2010 HOvE 360, 200: DRAWR 20,0:DRAWF 
0,5:M0VER E.-3:DRh»F -6,-::DRAWR 40 
,30:DfiAWR -e.-2:M0¥ER S.-3::Fh» ), 
5: DRAWR -20,0 

2020 LOCATE 29,9:PRINT "h":LOCATE 4 
B,6:PRINT "m":LOCATE 52,9:PRINT "ml 
":L0CAÎE 52,12:PRINT "b":LCCATE 40, 
14:PRINT "a" 

2030 LOCATE 30,18:FRINT"A1 : surfa: 
e de la base" 

2040 falMCHR*i:4;:fo:ï= ,!,i :fc7»= ! : 
fo4»="" 
2050 fo=l 

2060 LOCATE »3,59,6:FFINT 13, fol*:" 
y='Al.hi.'3"ifol* 

2070 LOCATE 13,59, 10:PRIHT !3,fo2«: 
"ml= h";CHR$i255::' ! +a":CHR*u55^" 
4";tc2« 

2080 LOCATE #3,59, 14: FBI NT !3.fo3«: 
"AiïF2a.ml";fo3$ 

2090 LOCATE 13,39, lSîPRINT #3.fo4«: 
"m= mr , :CHR«;255!i"+3";CHP*!235i;"/ 
4";fo4$ 

2100 radicaux 

2110 PLOT 47B,12B:DFâap 4, -14: DRAWR 
4,14:DRA«R o6.0:PL0T 486,256:DMWR 
4,-14:DRA»R 4,14:DRAMR 58,0 
2120 IF INkEYilBi=0 THEN 2220 
2130 IF INKEYi47'=0 THEN 2160 
2140 IF INKEY(9)=0 THEN CLS:RETURN 
2150 GOTO 2120 

2160 fo=fo+l:IF fo/4 THEN fo=l 
2170 ON fc GOSUB 2180,2190,2200,221 
0:GOTO 2060 

2180 fol$=CHR»i24!:fo2*="":fo3*="": 
fo4«=""s RETURN 

2190 fo2J=CHR»i24i:fol»= ,, ":fo3t="': 
fo4*="": RETURN 
2200 fo3*=CHR* (24! : fol$=" : f c2«="" : 



fo4«*"": RETURN 

2210 fo4$=CHR$(24):fol*="":fo2S="": >TF 

fo3*="":RETURN 

2220 CALL I.BB03:CLStl:0N fo BOSUB 2 >HX 

230,2270,2310,235Ci:CLSttl:60SUB 5500 

:BOSUB 5590:60T0 2040 

2230 TAB1=2:TAB2=2:S0SUB 5340 >XF 

2240 TABi=2:TAB2=6:G0SUB 5170 >XW 

2250 volu=RQUND!Uirl«iaut)/3,4):L0 ZR 

CATE #1.2,10:PRINTM,"Le ralune est 

de :":PRINT 11," "jvolui" cm";CHR» / 
!254!;" ." 

2260 CALL &BB06: RETURN >RM 

2270 TAB1=2:TAS2=2: BOSUB 5170 >XV 
2280 TAB1=2:TAB2=6:G0SUB 5010 >XT 
2290 ■l"R0UND<SBR(haut*2+(col A 2/4)) >FJ 
,4):L0CATE »l,2,10:PRINT#l,"La ion? 
ueur ml est de:":PRINT #1," ";mi;" à 
cm. " 

2300 CALL &BB06: RETURN >RG 
2310 TAB1=2:TAB2=2: GOSUB 5010 >XG 
2320 TAB1=2:TAB2=6:B0SUE 5100 >XM 
2330 airl=R0UND(2*col«lo2,4):L0CATE >NH 

tl.2,10:FRINT#l."La surface latera 
le ":PRINT il,' est de: "sairls" c« 
"|CHR*(255!i" ." 

2340 CALL KB06: RETURN ;RL 

2350 TAB1=2:TAB2=2:G0BUB 5100 >XL 
2360 TAB1=2:TAB2=6:B0SUB 5010 >XR 
2370 lol=R0UNDSSQR(lc2'2*ic=l A 2/4t> ;P8 
,4):L0CATE #l,2,10:PRINT»l,"La ionq 
ueur m est de:":PRINT 11," ";lol;" 
cm. " 

23B0 CALL ScBBOt: RETURN ;R0 

2390 ' tronc de pyramide >YB 
2400 (IODE 2:B0SUB 5400i60SU8 5590 >AP 
2410 PLOT 360,200:DRAWR -100,0:DRAtl >NR 
R 40,30:DRAKR !00.0:DRAWR -40,-30 
2420 DRAW -60.30:MQVER 100,0:DRflNR >LA 

-140,-30 
2430 DRAWR 40,80:DRAWR 50,0 ;VH 
2440 DRAW 10,-B0:M0VER -10,80:DRAW >LX 
R 10,7:DRAHR -50,0: DRAWR -10,-7 
2450 MOVEF 10,7:DRAHR -10,-55 Vil 
2460 MOVER 100,OlWWNR -40,55 >HY 
2470 NOVE 360,200:DRAWR 20,0:DRAWR >RG 
0,5: MOVER B, -3: DRAWR -B,-2:DRAWR 40 
,30:DRAWR -8,-2:HDVER B,-3:DRAWR 0, 
5:DRAWR -20,0 
2490 KOVE 360, 200: DRAWR 0,-20: DRAWR >QR 

-B,4:M0VER 0,-BlDRAKR 8,4:DRAWR -1 
0O,O:DRAWR 8,4:M0VER 0,-8:DRAWF -B, 
4:DRAWR 0,20 

2490 NOVE 260, 200:: DRAWR -50,0:DRAW >TA 
R -4,8:N0VER 8,0:DRAWR -4,-B:DRAWR 
0,85: DRAWR 4,-B:K0VER -8,0: DRAWR 4, 
S:DRAWR 120,0 



2500 LOCATE 27,11:PRINT "h":L0CATE >1X 

52, 12:PRINT "b":L0CATE 40,14:PRINT 

"a" 

2510 LOCATE 25,17:PR1NT"A1 : surfac >HJ 

e base intérieure" 

2520 LOCATE 25,19:PRÎNT"A2 : surfac .-HT 

e base supérieure" 

2530 LOCATE #3,58, 12:PRINT #3,CHR$! >VR 

24!;"V=ih/3!.!Al+A2+ A1.A2) "iCHR*(2 

4! 

2540 radicai >YD 

Î550 PLOT 576,226:DRAWR 4,-14,0:DRA >ZC 

WR 4,14:DRAWR 42,0,13 

2560 PRINT CHR*i23i;CHR*(0i; ;WN 

2570 IF INKEYtl8)=0 THEN 2600 >HJ 

25B0 IF INKEY(9)=0 THEN CLS:RETURN >CV 

2590 GOTO 2570 >NH 

2600 CALL iBB03iCLS#l:BOSUE 2610:CL )TJ 

3#!:GOSUE 5500:S0BUB 5590iB0T0 2530 

2610 tabl=2:tab2=2:G0SUB 5170 >XT 

2620 tabl=2:tab2=6:G0SUB 5340 >XX 

2630 tabl=2:tab2=10: GOSUB 5230 >YW 

2640 volu=R0UNDl(haut/3)*(airl+air2 )UG 

+S0Riairi*air2)),4):L0CATE #1,2, 14: 

PRINTHl.'Le volume est de :":PRINT 

#1," ";volu:" cm";CHR$(254>;" ." 

2650 CALL S.BB06: RETURN >RS 

2660 ' cône >Y6 

2670 MODE 2:60SUB 5400: GOSUB 5590 >AZ 

26B0 DEG >VH 

2690 PLOT 3B0,160:F0R fi=0 TO 360 S >GF 

TEP 10:DRAW 320+60*C0S(f7.!, 160+15«S 

INC-fS) :NEXT 

2700 DRAW 320, 300: DRAW 260,160 >WJ 

2710 DRAWR 0,-30:DRAWR B,4:H0VER 0, >ZH 

-S:DRAWR -B,4:DRAWR 120,0:DRAWR -B, 

4:M0VER 0,-8:DRAWR 8,4 

2720 DRAWR 0.30: DRAWR 4û,0:DRAWR -4 QG 

,8:M0VER 8,0:DRAWR -4,-S:DRAWR 0,14 

0:DRAWR -4, -B: MOVER B,0:DRAWR -4,8: 

DRAWR -100,0 

2730 DRAWR -30,10:DRAWR 0,-10lNDVER >D2 

-10,6:DRAWR 10,4:DRAW 230. 160: DRAW 

R 10,4:M0VER -10,6:DRAWR 0,-10:DRAW 

R 30,0 

2740 LOCATE 33,10:PRINT V':LOCATE >XL 

53,11:PRINT "h":LOCATE 41,17:PRINT 
, D . 

2750 fol$=CHR»(24>:fo2*="":fo3*="": >JJ 

fo4*="" 

2760 fo=l :>ES 

2770 LOCATE #3,59,6:PRINT «3, Fol*;" >Cf 

V=(";CHR*(184>:".r";CHR$(255)i".h)/ 

3"! Fol* 

2780 LOCATE #3,59,10:PRINT #3,fo2$: >VL 

"«= h";CHR$(255!;"+r n ;CHR»(255);Fo2 



2790 LOCATE #3,59, 14:PRINT »3,fo3$; 

"Am=";CHR*(184)s".r.i";'o3* 

2B00 LOCATE #3,59,18:PRINT #3,fo4«: 

"flo»r. ";CHR*(1B4) ; " (r+«i! "; fo4$ 

2810 ' radicaux 

2820 PLOT 478, 256: DRAWR 4, -14: DRAWR 

4,14:DRAWR 40,0 
2830 IF INKEYI1S)=0 THEN 2930 
2840 IF INKEY!47i=0 THEN 2870 
2850 IF !NKEY(9)=0 THEN CLS:RETURN 
2B60 60T0 2830 

2870 '0*f0+l:IF Fo>4 THEN fo=l 
2B80 ON fo BOSUB 2890,2900,2910,292 
0:GOTO 2770 

2890 Fo 1 *=CHRJ ! 24 ) : f o2*= " " i f o3$=" " ; 
fo4*="": RETURN 

2900 f c2*=CHR* (241 : Fol*="": fo3*=" " : 
fo4*="": RETURN 

2910 fo3*=CHR«i24):fol»="":fo2»="": 
fo4*="": RETURN 

2920 fo4»=CHRi!24î:fol*="":fo2S="": 
fo3S="": RETURN 

2930 CALL &BB03:CLS#1:0N fo GOSUB 2 
940, 2980, 3020, 3060: CLS#1 : BOSUB 5500 
:G0SU8 5590: GOTO 2750 
2940 tabl=2:tab2=2:G0SU6 5190 
2950 tabl=2:tab2=6:G0SUB 5170 
2960 volu=ROUND! (PI»ra'2*haut! ,'3,4« 
:LOCATE #1,2, 10:PRINT#l,"Le volume 
est de :":PRINT #1," "ivolu:" c«t";C 
HR*(254i:" ." 
2970 CALL &BB06: RETURN 
29B0 TAB1=2:TAB2=2: GOSUB 5170 
2990 TAB1=2:TAB2=6: GOSUB 5190 
3000 lol=R0UND!SQRihaut"2+ra"2),4): 
LOCATE #l,2,10:FRINTtl,"La longueur 

m est de:": PRINT #1," ";loli" cm." 

3010 CALL IBBO61RETURN 
3020 TAB1=2:TAB2=2:B0SUB 5190 
3030 TAB1=2:TAB2=6:60SUB 5070 
3040 air«i=R0UND(PI*ra*lol,4) :LOCATE 
#l,2,10:PRINT#l,"La surface latera 
le":PRINT #1," est de":airmj" cm";C 
HR«(255);" ." 
3050 CALL &BB06: RETURN 
3060 TAB1=2:TAB2=2:G0SUB 5190 
3070 TAB1=2:TAB2=6: GOSUB 5070 
3080 airo=R0UND(ra*PI»(ra+lol!,4);L 
OCATE #l,2,10:RRINT#l,"La surface t 
otale":PRINT #1," est de";airo;" cm 
"!CHR*(255)i" ." 
3090 CALL &BB06: RETURN 
3100 : tronc de cône 
3110 MODE 2:G0SUB 5400:60SUB 5590 
3120 DEG 



RF 

m 

■il y 
JN 



25 



o 



3130 FLOT 380,160:FOR fï=0 TO 360 S >TL 

TEP lOiORAN 320+60*C0S(f7.),160+15«S 

INIttJlNEXTsPLQT 35O,220:F0R tt=0 T 

D 340 STEP lOtDftflW 320+30*C0SIf7.),2 

20+7«SIN(«)sNEXT 

3140 MOVE 380, 160: DRAW 350,220:MOVE >YR 

240, 140: DRAW 290,220 / 

3150 MOVE 260,1 40 :DRAWR ù,-40:DRAWR >NT 

8,4:M0VER 0,-B:DRANR -B,4:DRAWR 12 
0,0: DRA* -6,4:M0VER 0,-B:DRA« 8,4 
:DRAHR 0,40 

3160 MOVE 290,220:DRA«IR 0,40:DR6WR >MÛ 
B,4:B0VER 0,-8:DRAWR -8,4:BRAWR 60, 
0:DRA«R -B,4:M0VER 0,-8:DP.AWR 8,4:D 
RAUR 0,-40 

3!?0 MOVE 290, 220: DRAW: -3Û,10:DRAW >CF 
R 0,-10:MOVER -10,6:DRAUP 10,4:DRAM 

230,160:DRAWR 10,4:MOVER -10,4:DRA 
KR 0,-10:DRA«R 30,0 

3180 MOVE 380,160:DRAUR 20,0:DF3W >0L 
-4,8:M0VER B,0:DRAWR -4,-B:DRAWR 0. 
60: DRAW -4,-8:M0VER 8,0:DRAUR -4,8 
:DRAWR -50,0 

3190 LOCATE 3!,13:PRÏNT VlLOCATE >E¥ 
51,13:PRINT "h": LOCATE 41,18:PRINT 
"D":LOCATE 41,9:PRINÎ "d" 
3200 LOCATE 25,4:PRINT"A1 : surface >ZH 

intérieure" 
3210 LOCATE 25,6:FRTNT"A2 : surface AV 
supérieure" / 

3220 folt=CHR*(24):to2«="":fo3«="" >AA 
3230 fo=l M 

3240 LOCATE #3,59,6:PRTNT #3,fol$;" >NL 
V=((";CHR«ilS4);".h)/12i.":L0CATE # 
3,59,7:PRINT #3," iD";CHR*(255) ; "+D. 
d+d" ; CHR* (255) ; ") " ; fol* 
3250 LOCATE t3,59,12:PRINT »3,fo2«: >FP 
"»= !(D-di/2)";CHR$(255i;"+h";CHR«! 
255);fo2« 
3260 LOCATE »3,59,18:PRINT *3,fo3$; >HE 



■'A»=!i";CHR*il84i:".«i)/2>.(D+d)";fo 

3* 

3270 ' radicaux 




>YE 


3280 PLOT 47B,224:DRAWR 4,-14:DRAWR 


>VH 


4,14:DRAtlR 110,0 




3290 IF INKEY(18!=0 THEN 3390 


■m 


3300 IF INKEY (471=0 THEN 3330 


H 


3310 IF INKEYI91-0 THEN CLS:RETURN 


>CL 


3320 EOTO 3290 


m 


3330 fo=fo+!:IF fo>3 THEN fo=l 


>XF 


3340 ON fo 60SUB 3360,3370,3380 


>XE 


3350 60T0 3240 


m 


3340 f o 1 *=CHR* ( 24 ) : f o2»= " " : f o3*=" " : 


>JK 


RETURN 




3370 f o2»=CHR» (24) : f olt=" " : f o3»=" " i 


>JL 


RETURN 




3380 fo3»=CHR*(24):foi«="":fo2*="": 


>JH 



2+ha ,/6 



RETURN 

3390 CALL SiBB03:CLS#l:0N fo GOSUB 3 
400, 3440, 3520: CL3#i : 60SUB 5500: BOSU 
B 5590: GOTO 3220 
3400 TA61=2:TAB2=2:6CSUB 5170 
3410 TAB1=2:TAB2=6: GOSUB 5220 
3420 TAB1=2:TAB2=10:G0SUB 5250 
3430 IF d2>dl THEN LOCATE # 1 . 1 , 1 : PR 
INT CHR*!7i;:GOT0 3420 
3440 volu«R0UND(<<PI*aut)/12)»(dl* 
2+dl«d2+d2 A 2),4):L0CATE #l,2,14:PRI 
NTIl."Le volume est de :":PRINT «1, 
" ";volu;"cm";CHR$(254);" ." 
3450 CALL &BB06: RETURN 
3460 TAB1=2:TAB2=2:G0SUB 5220 
3470 TAB1=2:TAB2=6:G0SUB 5250 
3480 TAB1=2:TAB2=10:G0SUB 5170 
3490 IF d2:dl THEN LOCATE »l,l,l:Pfi 
INT CHR*(7i::60T0 3480 
3500 lol=R0UND(SDR(iidl-d2 
ut'2i,4):UKATE »l,2,14:PRINT*l,"La 
longueur ni est de:":FRINT #1," ":i 
ai; "cm ." 

3510 CALL &BB06: RETURN 
3520 TAB1=2:TA82=2: GOSUB 5070 
3530 TAB1=2:TAB2=6: GOSUB 5220 
3540 TAB1=2:TAB2=10:G0SUB 5250 
3550 IF d2>dl THEN LOCATE #1,1, 1 : FR 
INT CHR*(7);:G0T0 3540 
3560 airuFROUNDi ( lPI*lol)/2!*(dl+d2 
),4!:L0CATE »l,2,14:PRINTItl,"La sut- 
face laterale":PRINT #1," est de :" 
:airm;"cm";CHR*(255);" ." 
3570 CALL 4BB06: RETURN 
3580 ' SPHERE 

3590 MODE 2: GOSUB 5400: GOSUB 5590 
3600 DEG 

3410 PLÛT 400,200:FOR F7.=0 TO 3sO S 
TEP 10:DRAW 320+B0»C0S(Fr>, 200*80*3 
IN(F7.):NEXT 

3420 PLOT 400,200:F0R F7.=0 TO 340 3 
TEP 10:DRAN 320+B0*C0S(F7J, 200+20*3 
IN(F7.):NEXT 

3630 MOVE 320,280:DRA«R -100,0: DRAW 
R -4,-8:M0VER 8,0:DRAWR -4,8:DRAWR 
0,-160:DRAWR -4,8:M0VER B,0:DRAWfi - 
4,-8:DRAWR 100,0 
3640 LOCATE 28,13:PRINT "d" 
3650 folt=CHR*!24):fo2«="" 
3660 fo=l 

3470 LOCATE #3,59,9:PRINT 13, fol»:" 
V=("iCHR$U84i;".d";CHR$!254>:"!/6" 
:foll 

3680 LOCATE »3,59,lo:PRINT #3,fo2»; 
"Ao=";CHR»(184);".d";CHR*(255);fo2< 

3690 IF !NKEY!1B!=0 THEN 3790 



3700 IF INt(EVi47i=0 THEN 3730 MM 

3710 IF INKEY(9)=0 THEN CLS:RETURN CO 
3720 GOTO 3690 >NH 

3730 fo=fo+l:IF to>2 THEN fo=l >XJ 

3740 ON fo GOSUB 3760,3770 ;>TY 

3750 GOTO 3670 W 

3740 fol*=CHR*!24i:to2»="":RETURN >BF 
3770 f o2J=CHR* i 24 ) : f o 1 »= " " : RETURN , BG 
3780 CALL !<BB03:CLS»1:0N fo GOSUB 3 HA 
790,3B2O:CLS#l:G0SUB 5500:SOSUB 559 
0:GOTO 3650 

3790 TAB1=2:TA62=2:60SUB 5250 
3800 volu=R0UND(!PI«d2"3i/4,4;:L0Lri >RT 
TE #l,2,B:PRINT(tl ,'l.e volume est oe 
:":PR1NT 11," ":volu:' cm" ;CHR»>:254 
1:" ." 

3B10 CALL MB06i RETURN -RP 

3820 TAB1=2:TAB2=2:G0SUE 5250 >XW 

3830 airo=R0UNDiFT*d2"2,4):L0CATE » AM 
l,2,8:PRINT»l,"La surface totale":? 
RINT #1," est de :":airo:"cm":CHR«( 
255):" ." 

3840 CALL &BB06: RETURN >RT 

3350 ' calotte sphenque >YJ 

3B60 MODE 2:G0SUB 5400:GOSUB 5590 AB 
3870 DEG >K 

3880 PLOT 400,2O0:F0R Fï.=0 TO 360 S GC 
TEP 10:DRAW 320+80*COS iFV.Î , 200+80*5 
IN(F7.i:HE>:T 

3890 PLOT 400,200:FOR F1Î=0 TO 36C S >FF 
TEP lOiDRAW 320+B0*C0S (Fi), 200+20*S 
iN!F;.>:NEXT 

3900 FOR F=10 TO STEP -2:RA1=320+ ZQ 
78*C0S!75):RA2=190+B0*3INi75!:FL0T 
RA1,RA2:F0R S7.=i TO 360 STEP 10:DRA 
U 320+2*(RAl-3.20!*COS!Ga,RA2+(F+!< 
*SIN!GV.::NEXT:NEXT 

3910 MOVE 320-78*COSi75i,RA2:DRAWR >ZQ 
-50,0:DRAWR -2,4:DRAHR 4,0:DRANR -2 
,-4:DRAWR 0,280-RA2:DRA«R -2,-4:DRA 
NR 4,0:DRAWR -2,4:DRAW 320,280 
3920 MOVE 300-80«CQS(75i,RA2:DRAUR -YV 
0,60:DRAWR 8,4:M0VER 0,-8:DRA«R -B, 
4:DRAW RAlt20,RA2+6O:DRAWR -8,4:M0V 
ER 0,-8:DRA«R B,4:DRAWF: 0,-60 
3930 MOVE 400, 200: DRAW 0,-lOOsDRAH -VF 
R -8,4:M0VER 0,-B:DPA«P 8.4:DRAWR - 
160,0:DRAWR B,4:N0VER 0,-8:DRAW. -8 
,4:DRA« 240,200 

3940 LOCATE 4O,5:PRINT"s":L0CATE 30 >VB 
,8:PRINT "h":LOCATE 40,19:PRINT "d" 

3950 fol*=CHR»(24):fo2*="":fo3t="" >AL 
3940 fo=l >EK 

3970 LOCATE »3,59,4:PRINT »3,fol*:" >PM 
V=((";CHR*(184l;".d";CHR*!255):"!/4 
).(3d-2hi";fol* 
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3980 LOCATE #3,59, 12:PRINT #3,fo2«; >HF 

"An="jCHR«(184);".d.h";fo2« 

3990 LOCATE #3, 59, 18:PRINT #3,fo3«; >EG 

■A«=(";CHR«(1B4>;"/4).(5";CHR*<255) 

i"+4h"iCHRi(255);")"!-fo3* 

4000 IF INKEY(18)=0 THEN 4090 >WD 

4010 IF INKEY(47>=0 THEN 4040 >WB 

4020 IF INKEY(9>=0 THEN CLS:RETURN >CK 

4030 GOTO 4000 >LJ 

4040 fo»*o+l! IF fo>3 THEN fo=l >XE 

4050 ON fo BOSUB 4060,4070,40801601 >GH 

3970 

4060 fol*=CHR«(24):fo2*="":fo3*="": >JH 

RETURN 

4070 fo2*=CHR«(24):folf="":fo3*="": >JJ 

RETURN 

4080 fo3*=CHR*(24):fol»="":fo2*="": >JK 

RETURN 

4090 CALL IBB03:CLS*1:0N fa GOSUB 4 >FK 

100,4140,4180:CLS»1:G0SUB 5500:G0SU 

B 5590:60T0 3950 

4100 TAB1=2:TAB2=2:G0SUB 5170 >XN 

4110 TAB1=2:TAB2=6:60SUB 5250 >XT 

4120 volu=R0UND(((PI»HAUT A 2)/6i*(3* >Cfl 

D2-2*HAUT),4):L0CATE #1,2,10:PRINT# 

l,"Le volu«e est de :":PRINT 11," " 

;volu;"cin":CHR*(254);" ." 

4130 CALL 8.BB06: RETURN >RK 

4140 TAB1=2:TAB2=2: GOSUB 5250 >XR 

4150 TAB1=2:TAB2=6: GOSUB 5170 >X¥ 

4160 airiFR0UND(PI*d2*haut,4>:L0CAT >NH 

E #l,2,10:PRINT#l,"La surface later 

ale":PRINT 11," est de : ";airm; "cm" 

;CHR*(255);" ." 

4170 CALL 8.BB06: RETURN >RP 

4180 TAB1=2:TAB2=2:S0SUB 5310 >XT 

4190 TAB1=2:TAB2=6:G0SUB 5170 >XC 

4200 airnFR0UND((PI/4)*(seg'2+4*hau >NH 

t"2l ,4) :LOCATE #1,2, lOlPRINTM, "La 

surface laterale":PRINT 41," est de 

:";airm;"cm";CHR$(255);" ." 
4210 CALL &BB06:RETURN >RJ 

4220 ' tonneau >YA 

4230 MODE 2:G0SUB 5400:G0SUB 5590 >AT 
4240 DEG:PLOT 365, 180: FOR fï»0 TO 3 >«H 
60 STEP 10:DRAW 320+45*C0S(f7.),180+ 
15*SIN(f7.):NEXT 

4250 PLOT 365,340:F0R fï=0 TO 360 S >GP 
TEP 10:DRAW 320+45*C0S(«),340+15*S 
IN(«):NEXT 

4260 PLOT 385,260:F0R fï=0 TO 360 S >GV 
TEP 10:DRAW 320+65»C0S(f7.), 260*22*5 
IN(f/.):NEXT 
4270 HOVE 365, 180: DRAW 10,27:DRANR >TU 

à,26:DRAUR 4,27:DRAWR -4,27:DRAtlR 
-6,26:DRAWR -10,27 
4280 HOVE 275,180:DRAWR -10,27:DRAtl >TK 



R -6,26:DRAWR -4,27:DRAWR 4,27:DRAU 

R 6,26:0RAHR 10,27 

4290 MOVE 385,260:DRANR -B,4:hWER >CG 

û,-8:DRANR 8,4:DRAHR -130,0:DRAtlR 8 

,4:M0VER 0,-8:DRftWR -8,'4 

4300 MOVE 275,340:DRAWR -80,0:DRAWR >UK 

-4,-B:M0VER 8,0:DRAWR -4,8:DRAWR 
,-160:DRAWR -4,8:M0VER B,0:DRAWR -4 
,-8:DRA«R 80,0 
4310 HOVE 365,180:DRAWR 0,-50:DRAWR >NF 

-8,4:H0VER 0,-8:DRAHR 8,4:DRANR -9 
0,0:DRANR 8,4:M0VER 0,-B:DRAWR -8,4 
:DRAWR 0,50 

4320 LOCATE 25,9:PRINT "h":LOCATE 4 >VA 
1,9:PRINT "D":LOCATE 41,17:PRINT "d 



4330 fol«=CHR»(24):fo2*="" 

4340 fo=l 

4350 LOCATE »3,58,9:PRINT #3,fol<; 

"V=(l"iCHR$(184)i".h)/12).(2D":CHR« 

(255);"+d":CHR*(255)i")"ifol« 

4360 LOCATE 43,57, 16:PRINT #3,fo2»; 

"D= ((6.V)/("jCHR$(184)i".h))-(d"jC 

HR*(255);"/2l";fo2* 

4370 ' radicaux 

4380 PLOT 464,160:DRAWR 4,-14:DRAWR 

4,14:DRAMR 160,0 
4390 IF INKEYU8)=0 THEN 4480 
4400 IF INKEY(47)=0 THEN 4430 
4410 IF 1NKEY(9)=0 THEN CLS:RETURN 
4420 GOTO 4390 

4430 fo«fO+llIF fo>2 THEN fo=l 
4440 ON fo GOSUB 4460,4470 
4450 GOTO 4350 

4460 fol»=CHR»(24):fo2*="":RETURN 
4470 fo2*=CHR*(24):fol*="":RETURN 
4480 CALL &BB03:CLS#1:DN fo GOSUB 4 
490,4540:CLS#1:G0SUB 5500:60SUB 559 
0:GOT0 4330 

4490 TAB1=2:TAB2=2:G0SUB 5170 
4500 TAB1=2:TAB2=6:30SUB 5220 
4510 TAB1=2:TAB2=10:60SUB 5250 
4520 volu=R0UND(((PI*HAUT)/12)»(2*D 
l"2tD2 A 2),4):LXATE #1,2,14:PRINT#1 
,"Le volme est de :":PRINT #1," ": 
volui" cn";CHR*<254);" ." 
4530 CALL ScBB06: RETURN 
4540 TAB1=2:TAB2=2:GDSUB 5370 
4550 TAB1=2:TAB2=6:60SUB 5170 
4560 TAB1=2:TAB2=10:SOSUB 5250 
4570 DIA=R0UND(SQR((<6*V0L)/(PI*HAU 
T))-(D2 A 2/2) 1,4): LOCATE #1,2,14:PRI 
NT#l,"Le diamètre D est":PRINT 11," 

de";DlA;"cm ." 
4580 CALL 4BB06: RETURN 
4590 ' ZONE SPHERIQUE 
4600 MODE 2: GOSUB 5400: GOSUB 5590 



4610 DEG >YC 

4620 PLOT 400,200:F0R F7.=0 TO 360 S >FD 
TEP 10:DRAW 320+80*C0S(F7.) ,200+B0*S 
IN(F-/.):NEXT 

4630 PLOT 400,200:F0R Fï=0 TO 360 S >FY 
TEP 10: DRAW 320+80*C0S(F7.), 200+20*5 
IN(F7.):NEXT 

4640 FOR F=0 TO 20:RA1=320+78*C0S(1 >AK 
35-F):RA2=2OO+78*SIN(135-F):PL0T RA 
1,RA2 

4650 FOR 6X=360 TO 180 STEP -10:DRA >XU 
» 320+<RAl-320)*C0S(G7.),RA2+0.3*(RA 
2-F-200)*SIN(G7.):NEXT 
4660 NEXT >LH 

4670 MOVE RA1,RA2:DRAWR 0,40:DRAWR >NQ 
B,4:M0VER 0,-8:DRAWR -8,4:DRAN 320- 
78*COS(115),240+78*SIN(115):DRAW - 
B,4:H0VER 0,-8:DRAUR 8,4:DRAWR 0,-4 


4680 «OVE 240,200:DRAWR 18,4:M0VER )GD 
0,-8:DRAWR -18,4:DRAWR 160,0:DRAWR 
-18,4:M0VER 0,-8:DRAWR 1B,4 
4690 MOVE 320+78*COSI135),200+78*SI >KC 
N(135):DRAWR -40,0:DRAWR -2,4:DRAKR 
4,0:DRAWR -2,-4:DRAWR 0,-(200+78*S 
INI135)-RA2):DRAHR -2,-4:DRAWR 4,0: 
DRAWR -2,4:DRAW RA1,RA2 
4700 HOVE 320+78»C05(135), 200+78*51 >UU 
N<135):DRA«R 0,100:DRAWR 8,4:M0VER 
0,-8:DRAWR -B,4:DRAW 320-7B»CD5(135 
),300+78*SIN(135):DRAWR -B,4:M0VER 
0,-8:DRAklR 8,4:DRAWR 0,-100 
4710 LOCATE 40,3:PRINT "dl":LOCATE >FQ 
4Û,6:PRINT "d2":L0CATE 40,13:PRINT 
"d":LOCATE 27,9:PRINT "h" 
4720 fol*=CHR*(24>:fo2«="":fo3«=" >AG 
4730 +0=1 >EF 

4740 LOCATE #3,58,6: PRINT #3, fol»;" >«L 
V=( (" ; CHR» ( 184) ; n .h) /24) . " : LOCATE # 
3,58,7:PRINT #3,"(3dl";CHR*(255):"+ 
3d2";CHR*(255);"+4h - ;CHR«(255);")"j 
fol* 

4750. LOCATE #3,58, 12:PR1NT #3,fo2«; >HA 
■An=";CHR»(184);".d.h";fD2* 
4760 LOCATE #3,57,18:PRINT #3,fo3$; >QN 
"Ao=(";CHR«(184);74).(4d.h+dl";CKR .■ 
*(255>;"+d2";CHR«(255);")";fo3» / 

4770 IF INKEYI 181=0 THEN 4860 >NZ 

4780 IF INKEY(47I=0 THEN 4810 >HX 

4790 IF INKEY(9)=0 THEN aS:RETURN >CA 
4800 BOTO 4770 >NH 

4810 fo=fo+l: IF fo>3 THEN fo=l >XK 

4820 ON fo G05UÎ) 4830, 4840, 4850: BOT >GA 
4740 

4830 fol*=CHR»(24):fo2*="":fo3*= >JN 

RETURN 

4B40 fo2*=CHR*(24):fol*="":fo3«="": >JP 
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RETURN 

4B50 fo3»=CHR»(24):fol«="":fo2»="": >J« 

RETURN 

4860 CALL (,BB03:CLSII:0N *o 60SUB 4.>PS 

B70,414O,4930:CL5»l:SaSUB 55O0:GOSU / 

B 5590: GOTO 4720 

4B70 TAB1=2:TAB2=2:G0SUB 5170 >XD 

4B80 TAB1=2:TAB2=6:G0SUB 5130 >XE 

4890 TAB1=2:TAB2=10:G0SUB 5150 >YC 

4900 IF d4>d3 THEN LXATE ll,l,l:PR >Ai 

INT CHR*(7);:G0T0 4890 

4910 volu=R0UND(((PI*HAUT)/24)*(3»D >AD 

3 A 2+3»D4''2+4*HAUT'-2) ,4) :LXATE #1,2 

,14:PRINTIl,"Le volume est de :":PR 

INT #1," ";volu; - cm";CHR*(254>;" . 

4920 CALL &BB06:RETURN >RT 

4930 TAB1=2:TAB2=2:G0SUB 5250 >XZ 
4940 TAB1=2:TAB2=6:G0SUB 5170 >XF 
4950 TAB1=2:TAB2=10:GOSUB 5130 >YX 
4960 IF d3>d2 THEN LOCATE 11,1, liPR >AX 
INT CHR*t7);:SDT0 4950 
4970 TAB1=1:TAB2=14:G0SUB 5150 >YE 
49B0 IF d4>d3 THEN LOCATE »1,1,1:PR >AD 
INT CHR«(7);:G0TD 4970 
4990 airo=R0UND((PI/4)«(4*d2«haut*d >MG 
3*2+d4"2),4):LXATE 11,2, 18:PRINT t 
l,"La surface totale":PRINT 11," es 
t de :"(airo; - cm";CHR*(255); 
5000 CALL &BB06: RETURN >RG 

5010 LOCATE H,tabl,tab2:PRlNTIl,"E >KE 
NTREZ LE COTE a en":PRINTH," c» - 
->";:LINE INPUTIl,"",col* 
5020 col=VAL(col*):IF col=0 THEN LO >VX 
CATE tl,l,l:PRINT#l,CHR*(7):G0T0 50 
10 

5030 RETURN >FB 

5040 LOCATE #l,tabl,tab2:PRINTIl,"E >LB 
NTREZ LE COTE b en":PRINTH," cm - 
->";:LINE INPUT#l,"",co2« 
5050 co2=VAL(co2«):IF co2=0 THEN LO >VG 
CATE ll,l,l:PRINT*l,CHR«(7):G0T0 50 
40 

5060 RETURN >FE 

5070 LOCATE ll,tabl, tab2:PRlN.TIl,"E >TB 
NTREZ LA LONGUEUR «"sPRINTIl," en c 
■ ~>";:LINE INPUTIl,"",lol« 
5080 lol=VAL(lol»):IF lol=0 THEN LO >UF 
CATE #1,1,1:PRINTI1,CHR«(7):G0T0 50 
70 

5090 RETURN >FH 

5100 LOCATE ll,tabl,tab2:PRINTIl,"E >WB 
NTREZ LA LONGUEUR »1";:PRINT»1," en 
cm ->"î:LINE INPUT«1,"",1o2« 
5110 lo2=VAL(lo2$):IF lo2=0 THEN LO >WW 
CATE I1,1,1:PRINTI1,CHR*(7):60T0 51 
00 



5120 RETURN >FB 

5130 LOCATE #1, tabl,tab2:PRINTIl,"E >KP 
NTREZ LE DIAMETRE dl"iPRINTIl," en 
Cl ->";:LINE INPUT#1,",D3$:D3=VAL 
(D3*):IF D3=0 THEN LOCATE M,l,llPfi 
INT CHR$(7):G0T0 5130 
5140 RETURN >FD 

5150 LOCATE 11, tabl,tab2:PRINT*l,"E >KZ 
NTREZ LE DIAMETRE d2":PRINTIl," en 
cm ->";:LINE INPUTI1,"",D4*:D4=VAL 
(D4»):IF D4=0 THEN LOCATE 11,1, llPR 
INT CHR$(7):G0T0 5150 
5160 RETURN >FF 

5170 LOCATE 41,tabl,tab2:PRINTIl,"E >CT 
NTREZ LA HAUTEUR":PRINTI1," en cm 
— >";:LINE INPUTIl,haut*:haut=VAL( 
haut»): IF haut=0 THEN LOCATE #1,1,1 
:PRINT#1,CHR»(7):G0T0 5170 
51B0 RETURN >FH 

5190 LOCATE ll,tabl, tab2:PRINTIl,"E >LY 
NTREZ LE RAYON r en":PRINT#l," cm 
~>";:LINE INPUTIl,"",ra* 
5200 ra=VAL(ra»):IF ra=0 THEN LOCAT >NN 
E ll,l,l:PRINT CHR*(7):GOT0 5190 
5210 RETURN >FB 

5220 LOCATE #l,tabl,tab2:PRINT#l,"E >PR 
NTREZ LE DIAMETRE D":PRINTI1," en c 

■ ~>";:LINE INPUTI1,"",D1* 

5230 D1=VAL(D1*):IF D1=0 THEN LXAT >MD 
E ll,l,l:PRINT CHR«(7):G0T0 5220 
5240 RETURN >FE 

5250 LOCATE ♦l 1 tabl,tab2;PRINTIl,"E >PF 
NTREZ LE DIAMETRE d":PRINTtl," en c 

■ ~>";:LINE INPUT#1,"",D2« 

5260 D2=VALID2*):IF D2=0 THEN LOCAT >MN 

E tl,l,l:PRINT CHR»(7):G0T0 5250 

5270 RETURN >FH 

5280 LOCATE #l,tabl,tab2:PRINTIl,"E >JF 

NTREZ L'AIRE A2 en":PRINTtl," cm"; 

CHR»<255);" — >";:LINE INPUT#l,"",a 

ir2» 

5290 air2=VAL(air2»):IF air2=0 THEN >AU 

LOCATE »1,1,1:PRINTI1,CHR»(7):G0T0 

5280 

5300 RETURN >FB 

5310 LXATE H,tabl,tab2:PRINTIl,"E >RH 
NTREZ LE SEGMENT s":PRINTIl," en c 

■ ->";:LINE INPUT#l,"",seg« 

5320 seg=VAL(se5$):IF seg=0 THEN LO >TM 
CATE ll,l,l:PRINT CHR*(7):G0T0 5310 

5330 RETURN >FE 

5340 LXATE H,tabl,tab2:PRINTIl,"E >JA 
NTREZ L'AIRE Al en":PRINTH," cm"; 
CHR»(255)i" ->";:LINE II*>UT#1, "", a 
irl* 

5350 airl=VAL(airl«):IF airl=0 THEN >AJ 
t 
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LOCATE I1,1,1:PRINTI1,CHR$I7):G0T0 

5340 

5360 RETURN >FH 

5370 LXATE #l,tabl,tab2:PRINTIl,'E >HV 
NTREZ LE VOLUME en":PRINTIl," cm"; 
CHR«(254);" ->";:LIN£ INPUT»l,"",v 
DM 

5380 vol=VAL(vol«):IF vol=0 THEN LO >XZ 
CATE *1,1,1:PRINTI1,CHR«(7):G0T0 53 
70 

5390 RETURN >SA 

5400 ' >YB 

5410 ' dessin contour écran >YC 
5420 ' >YD 

5430 MODE 2:0RIGIN 0,0:PLOT 0,0,13: >MP 
DRAHR 639,0:DRAHR 0,399:DRAI* -639, 
0:DRAWR 0,-399 

5440 PLOT 3,3:DRAWR 633,0:DRAHR 0,3 >HF 
93:DRANR -633,0:DRAHR 0,-393 
5450 PLOT 4,80:DRA«R 631,0:PL0TR 0, >TK 
-3:DRAHR -631,0 

5460 PLOT 165,3:DRAHR 0,74:PL0TR 3, >QA 
0:DRAWR 0,-74 

5470 PLOT 440,B0:DRAHR 0,317:PL0TR >VL 
-3,0:DRAWR 0,-317 
5480 PLOT 440,355:DRAWR 194,0:PL0TR >WX 

0,-3:DRAWR -194,0 

5490 LXATE 64,2:PRINT "FORMULES" >CR 
5500 HINDOU «1,2,23,2, 19:PAPER 11,1 >RB 
:PEN I1,0:CLS #1 

5510 LXATE 11, 3,3:PRINT#1, "CHOISIS >UF 
SEZ LA BONNE" 
5520 LXATE 11, 3, 5:PRINTI1, "FORMULE >RH 

AVEC LA" 
5530 LOCATE I1,3,7:PRINTI1,"BARRE D >UA 

ESPACEMENT. " 

5540 LXATE #1,3,13:PRINTI1,"CECI F >UU 
AIT , VALIDEZ" 

5550 LXATE 11,3, 15:PRINT«1, "PAR EN >JU 
TER ." 

5560 HINDOU 12,57,79,5, 19:PAPER 12, >UB 
0:PEN I2,1:CLS 12 

5570 MINDOM I4,23,79,22,24:PAPER #4 /UE 
,0:PEN I4,1:CLS 14 
5580 LXATE 2,23:PRINT "COPY=RETOUR >ZD 

AU MENU": RETURN 
5590 LXATE l4,l,l:PRINTI4,"V:Vol. >9à 

A«:surf. latérale Ao:surf.tot. h: 
haut r: rayon" 
5600 LXATE l4,l,3:PRINTI4,"e:DIAG. >FX 

d,D:DIAM. m:generatrice s:corde a 
: long. b:larg." 

5610 RETURN >FF 

5620 MODE 2:PRINT:PRINT " VALEUR EN >PZ 
TREE ERRONEE ... UNE TOXHE POUR RE 
COMMENCER ,..":CALL 1BB03:CALL MBO 
6:PRINT CHR»(7):RUN f 
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Il n'existe pas encore de 
programme simple d'em- 
ploi et bon marché qui per- 
mette d'entrer rapidement 
une mélodie, de ta sauver et 
même d'en tirer un pro- 
gramme BASIC. Cet oubli 
est réparé aujourd'hui avec 
MUSICA. 
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Ce programme utilisant les touches, les possesseurs de cla- 
vier AZERTY devront modifier les lignes suivantes dans 
le programme principal : 
(attention : le symbol ° correspond à "[" et § à "]". 



590 PBt 3:L0CA7E !1.8:PRINT " •)!" >KY 

::PEN liPRINT " = Octave -1" 

600 PEN 3:L0CATE U.lOlPRIMT " '-§ >LU 

"::PEN hPRINT " = Octave +1" 

610 PEN 3:L0CATE 11.12iPRINT ■ M >Z0 

"::PEN hPRINT " = Dur"+CHR*(92)t"e 

-1" 
620 PEN 3:L0CATE li,14:PRINT " '/S >ZT 
";:PEN hPRINT " = Dur"+CHR*(92)+"e 

+1" 
650 PEN 3:L0CATE 2.10:PRINT ,, Ks";: >VU 
PEN tiPRINT " ...permet d'enreqistr 
er les notes que vous ave: iou 
"*CHR«(92!+ !: es avec leurs ENVs, 

ENTï. Bur'+CHR«i92i+"es et Voliw 
es.":PEN 2:PRINT " Un qrand E se 



dessine si i enreqis- -iraient 

a lieu" 

840 PEN 3:L0CATE 2.10:PRINT H, ?S":: >HM 
PEN hPRINT " ...pernet de quitter 
sous BASIC ou CP/M" 

1520 PEN 3:L0CATE I. 21 :PRINT"M": : PE >GP 
N 1:PRÎNT":ENRESISTRER" 
1540 PEN 3:L0CATE 1 ,25: PRINT"?"; :PE >2L 
N 1:PRINT !, :S0RTIR" 

2680 PEN hLOCATE 2.6:PRINT "Plus d >¥A 
e place, mec ! " ; CHR*/7] : : L0CATE 2, 8 
:PRINT "Appuve sur *W§":WHILE INKEY 
[71)00: «END: G0SUB 2690: en=ù: GOSUB 
2670:enri=0:GOTO 1610 
2850 IF INKEY (67) =0 THEN PRINT ■ As >TB 
en": GOTO 2870 




10 SYHBOL AFTER 47 

20 SYMBOL 48, 126,66, 70. 74,82. 9B, 126 



4. 



SYMBOL 49.24.8,8,8.8,8,8.0 
SYMBOL 50,126,2.2,126,64,64,120. 



50 SYMBOL 51.126.2.2,30,2.2.126,0 
60 SYMBOL 52,66,66,66,126,2,2,2,0 
70 SYMBOL 53.126,64.64.126,2,2.126, 



80 SYMBOL 
6.0 



>NU 
>DK 

* 
BD 

:d 

>ZE 

es 



i4. 126.64.64. 126,66.00,12 >DC 
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90 SïMBOL 55.i26.2.2.2.2.2.2.0 
100 SYMBOL 54,126. 66. 66, 126.66. 66.1 
26. 
110 SïMBOL 57.126,66.66.126.2,2,126 

120 SYMBOL 5?, 32, 16,120,12, 124,204. 

1 18, 

130 SYMBOL 64.24,36.102.102.102,102 

,62.0 

140 SYMBOL 65.40.108,198.198,238.19 

B, 198.0 

150 SYMBOL 66.220.198.198,220. 198.1 

98. 220.0 

160 SYMBOL 67. 108. 19B. 192. 192. 192,1 

98.108,0 

170 SYMBOL 68.220. 19B. 198. 198, 198.1 

98,220.0 

180 SYMBOL 69.222.192.216.192.192.1 

92,222.0 

190 SYMBOL 70.222.192.216,192.192,1 

92,192.0 

200 SYMBOL 71.108.198.192,204,198,1 

98.108,0 

210 SYMBOL 72. 19B. 198. 198, 238. 198,1 

98. 198.0 

220 SYMBOL 73,126.24.24.24.24.24,12 

6,0 

230 SYMBOL 74.30.12,12,12.204.204.1 

20.0 

240 SYMBOL 75,198.204.216,208,216,2 

04,198.0 

250 SYMBOL 76.192.192,192.192,192.1 

92,222,0 

260 SYMBOL 77.196.108.186,214,198,1 

98.198,0 

270 SYMBOL 78.198,102.182.214,218,2 

04,198,0 

280 SYMBOL 79. 108. 198, 198. 19B, 19B, 1 

98.10B.0 

290 SYMBOL 80.220,198,198.220,192,1 

92,192.0 

300 SYMBOL 81.108,198,198.198,246,2 

18,108,6 

310 SYMBOL 82,220.198,198,220,204.1 

98.194.0 

320 SYMBOL 83,108,192.108.6.198.198 

,108,0 

330 SYMBOL 84,126,24,24,24.24.24.24 

,0 

340 SYMBOL 85,198.198.198,198,198.1 

9B, 108,0 

350 SYMBDL 86.198,198,198,198,198,1 

08,40,0 

360 SYMBOL 87,198.198,198.214,186,1 

08,198,0 

370 SYMBOL 88,198,108,40.40,108,198 

,198,0 



i 

•nu 


'380 SYMBOL 89,198,198,198,100,48,56 


PE 1 


El 


,56,0 






390 SYMBOL 90,251.6,12,24,48.96,223 


CE 


<BZ 


.0 






400 SYMBOL 92.8.16.60.102.126.94.60 


cv 


FO 


.0 






410 SYMBOL 96.16.8.60,102.126,96.60 


:a 


>FF 


.0 






420 SYMBa 95,24.36,60.102.126,96.6 


Dt 


■HD 


0.0 






430 M O.lîINK 1.26:INK 2.20:1»' 3 


CB 


>JF 


.6 

440 BORDER OlFAPER 0:MODE 1 


VA 


>JP 


450 LOCATE 2.12:PRÏNT "INSTRUCTIONS 
OUI ou NON (O/'N) ? ": 


FE 


JA 


460 IF UPPER$(INKEYti="0" THEN PRIN 


>HJ 


/ 


T "Oui":F0R 1=1 TO 200:NEXT uGOTD 




■>jw 


490 






470 IF UPPER*(I*:EY*i="N" THEN PRIN 


M 


>JV 


T "Mon":FOR 1=1 TO 200:NEXT i:GOT0 
960 




,JD 


480 GOTO 460 


>ZJ 




490 MODE 1:PEN 2:L0CATE 13.1:PRINT 


>RY 


*JP 










500 LOCATE I2.2:PRINT "<";:PEN 1:PR 


>TZ 


>DX 


INT" M U B I C A ";:PEN 2:PRINT">" 






510 LOCATE 13,3:PRINT " 


CF 


En 


-" 




>JX 


^^r'd^H 








>J8 

JB 
JQ 




KM 


520 PEN 3:LOCATE 2.7:PRINT "MUSICA" 


>ZB 


JC 


;:PEN 1:PRINT " est un svntti"+CHR$( 
92)+"tiseur de 7 octaves qui vou 




•JT 


s permet de cr"+CHR*i92)+"er des mo 
rceau* musicaux que vous pouv 




>JZ 


ez ensuite les utiliser dans vos 
propres programmes (BASIC) . " 




BU 


530 PRINT:PRINT:PRINT " Vous jouere 
: avec les 2e et 3e ranq"+CHR«(92)+ 


>(1H 


CN 


"es du Clavier." 






540 PRINT:PRINT " Les touches num"+ 


'VTJ 


JU 


CHR*(92)+"nques du Clavier s 
ervent de chou de l'ENveloppe de 




HB 


Volume ( " ; : PEN 2:PRINT " 0=sans 
ENV "j:PEN hPRINT ")." 




JH 


550 PRINTrPRINT " M"+CHR$(95)+"nes 
remarques pour les ENveloppes de T 


>CH 


GF 


on mais en utilisant le pav"+CHR$(9 






2)*" num"+CHR$(92)+"rique" 

! 


; 



560 G05UE 940 


JD 


570 CLSiPEN 3:L0CATE 11.4:PRINT "C 


>TG 


LRi"::PEN hPRINT " = Volume -1" 




580 PEN 3:LÛCAÏE 11.6:PRINT '"DELI" 


>MR 


::PEN hPRINT " = Volume +1" 




590 PEN 3:L0CATE 11.8:PRINT " •-!" 


>KC 


::PEN hPRINT " = Octave -1" 




600 PEN 3: LOCATE 1 1 . 10: PRINT " ■ i 


>MN 


":;PEN hPRINT " = Octave +1" 




610 PEN 3:L0CATE U.12:FR1NT " •;§ 


>ZF 


";:PEN hPRINT " = Dur"+CHR$<92)+"e 





620 PEN 3:L0CATE U.i4:PRINT " •>! -FP 
";:PEN hPRINT " = Dur :, TCHR»i92)+"e 
tl":PEN 3:L0CATE 6,l6:PRINT " "E 
SPACE?";:PEN hPRINT " = Blanc" 
630 GOSUB 940 ,JB 

640 CLSlPEN 2:L0CATE 15.2:PRINT "EN >0f 
RIGI5TRER" 

650 PEN 3:L0CATE 2,lû:PRINT ""Zï";: VF 
PEN hPRINT " ...permet d ennqistr 
er les notes que vous avez iou 
"+CHR*f92)+"es avec leurs ENVs. 

ENTs, Dur"+CHR$(92)*"es et Volum 
es. ":PEN 2:PRINT " Un qrand E se 

dessine si l'enriqi-- -trement 

a lieu" 

660 GOSUB 940 ;JE 

670 CLS:PEN 2:L0CATE 17,2:FRINT "EC >KV 
OUTER" 

680 PEN 3:L0CATE 2,l0:PRINT -, B§":: AU 
PEN hPRINT " ...permet d ' "+CHR* (92 
)+"couter les notes que vous av 
e: enngistr"+CHR$(92)+"es ou charq 
"+CHf»(92)+"es." 

690 GOSUB 940 >JH 

700 CLSiPEN 2:L0CATE 15,2:PRINT "IN >BB 
ITIALISER" 

710 PEN 3:L0CATE 2,lO:PRINT " , Xi":: >TR 
PEN hPRINT " ...permet de recommen 
cer a z"+CHR*(92i+"ro le mo 
rceau musical." 

720 GOSUB 940 >JB 

730 CLSiPEN 2:LDCATE 17,2:PRINT "SA >JK 
UVER" 

740 PEN 3:LXATE 2,7:PRINT " , V§";:P :>ZF 
EN hPRINT " ...permet de sauver le 
s notes que vous ave: ennqistr 
"+CHR*(92)+"es." 

750 PRINT: PRINT" Ces notes peuve >UL 
nt "+CHR«(95)+"tre sauv-tCHR»™*" 
es sous 2 Formes : " 
760 PEN 2:PRINT:PRINT" ASCII:";:PEN >JF 

hPRINT " fichier (suivi de .MUS) 
qui peut *+CHR*(95)+"tre recharg" 
+CHR«(92)+" et trait"+CHR»(92)t" pa 
r MUSICA. " 
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? 



770 PEN 2:PRINT:PRINT" BASIC: ": :PEN 
1:PRINT " fichier intraitable par 

NLISICA sais peut "+CHR«(95;+"tr 

e utilis"+CHR«!92i*" "+CHR*(5»)+" p 

artir du BASIC." 

780 60SUB 940 

790 CLS:PEN 2:L0CATE I7,2:PRINT "CH 

AR6ER" 

800 PEN 3:LDCATE 2.10:PRINT "*CS";s 

PEN 1:PRINT " ...pernet oe recharqe 

r les notes que vous ave: pr" 

+CHR$(92)+"alab!e»ent sauv"+CHR$(92 

l+"es. " 

810 PRINT:PRINT" Vous pouve:, ap 

r"+CHR»(96)+"s le charqenent. 
d'ajouter d'autres notes et de les 
sauver. 

620 S0SUB 94ù 

830 CLS:FBi 2:L0CATE !7.2:PRINT "S0 

RTIR" 

840 PEN 3::DC«TE 2. lOsPRINT "ni":: 

PEN 1:PRINT " ...permet de quitter 

sous BASIC ou CF'/M" 

B50 BOSUB 940 

860 CLS:PEN 2:L0CATE 13. i:PRINT "— 



870 LOCATE 12,2:PRINT " ": :PEN 1 : FF. 
INT" M U S I C A "::PEN 2:PRINT">" 
860 LOCATE 13,3:PRINT " 

890 PEN !:L0CATE 2,7:PRIMT " VoilV 
CHR«(59i+" ! c est tout. J'esp"+CHR 
l(96)+"re que vous avez tout not" 
+CHR*<92!+"." 

900 FEN ::FRINT:PRINT " N0TA:"j:PEN 
1:PRÎNT " Vous pouvez modifier les 
ENVs et ENTs du programme :":PEN 
2:FRINT:PRINT " Lianes 960 "+CHR 
♦ t'59>+" 1130 et 3070 "+CHR$«59)+" 3 
240" 

910 PEN 1:PRINT:PRINÎ " Et le nombr 
e de notes utilisables :":PEN 2:PRI 
NTiPRINT " Ligne 1580 I mais atte 
ntion "+CHR$i59)+" la »"+CHR 
»(92)+"»oire de votre AMSTRAD ! )"; 

920 PEN 3:L0CATE 2,23:PRINT "...<ES 
PACE/ POUR DEMARRER MUSICA , ..." 
930 IF INKEY$(>" " THEN 930 ELSE 60 
T0 960 

940 LOCATE 21,25:PEN 3:PRINT "BARRE 
D'ESPACE — >" 

950 IF INKEY$=" " THEN RETURN ELSE 
GOTO 950 

960 ENV 1,10,-15,0.5,3,5,12,15,-1,1 

970 ENV 2,15,1,1,15,10,15,1,-1,12 



,15 


>ZA 


5 


>XG 




>QG 




fit 


1.10 


>2P 




>RR 


5,1 


>ZX 


,-1, 


:>au 




>VK 


30 


>YT 




>TE 




>RB 


.20 


>2E 


,1 


>YX 


15,5 


>ZA 



9B0 ENV 3,20,15,1,5,-10,40,5,13,1 
990 ENV 4,10,2,15,10,-1,2,30,3,: 
1000 ENV 5,10,1,5,15,-1,1 
1010 ENV 6,15,3,1,1,-1,15 
1020 ENV 7,5,-30,1,15,-10,20,5, 

1030 ENV 8,1,3,15,13.-1.15 
1040 ENV 9,15,35,1.5,8,-10,5.1.: 
1050 ENT 1.2.-15.0.5,5,-15,10,1 
5 

1060 ENT 2.15,-20,15,5.-15,10 
1070 ENT 3,1,3,10,15,1,1,50,-1, 
1080 ENT 4.10.-2.15,10,-1,5 
1090 ENT 5,1.15,1,1,15,10,6,-5, 
1100 ENT 6,1,12,1,15,-10,1 
1110 ENT 7,1.30,1,50,5,10,5,-15 
1120 ENT 8,30,-1,8,13,4,5,10,-1. 
1130 ENT 9.1,-50,1,15,1,15,20,- 



1140 II* 0,1:1» 1,26:INK 2,0: II* 3 >VA 

,6: BORDER 0:MODE 1 

1150 PLOT 0,336,!:DRAW 639,336:PL0T >CH 

0,256:DRAN 639.256:PL0T 4B0,399:DR 
AN 480,0 

1160 PLOT 0.344:DRAW 280,344:DRAW 2 >E6 
80,399:PL0T 28B,399:DRAW 28B,336:DR 
AH 280,344 
1170 PLOT 296.399:»RAW 296,344:DRAW MB 

344.344:DRAW 344,399:PL0T 296,344: 
DRAW 288.336:PL0T 344.344:DRAW 352. 
336: DRAW 352.399 
1180 PLOT 360, 399: DRAW 360,344:DRAW Y» 

472,344:DF:AW 472,399:PL0T 360.344: 
DRAW 352,336:F10T 472.344: DRAW 480. 
336 
1190 PLOT 488,399:DRAW 488,344:DRAW ;0C 

639,344:PL0T 488,344:DRAW 480,336 
1200 PLOT 639.328:DRAW 48B.328:DRAW >ZB 

488,264:DRAW 639,264:PL0T 468,328: 
DRAW 480,336:PL0T 4B8,264:DRAW 460, 
256 

1210 PLOT 0,248:DRAW 4B0,24B:PL0T >WD 
,!04:DRAW 480,104:PL0T 0,96:DRAW 48 
0,96 

1220 PLOT 0,88:DRAW 216,88:DRAW 216 >VX 
,0:PL0T 232,0:DRAW 232,88:DRAW 472, 
BB:DRAW 472,0:PLQT 216,8B:DRAW 224. 
96:DRAW 224,0:PL0T 224,96:DRAW 232, 
88:PL0T 472,8B:DRAW 480,96: PLOT 232 
,56: DRAW 472,56 
1230 PLOT 639,248:DRAW 488,24B:DRAW >WF 

4B8.216:DRAW 639,216:PLQT 488,248: 
DRAW 480,256:PL0T 488,216:DRAW 480, 
20B:DRAW 639,208 
1240 PLOT 639,200:DRAW 488, 200: DRAW >MW 

488,0:PL0T 488,20O:DRAW 480,208 
1250 FOR t=0 TO 480:PL0T x,104,l:DR >CL 



AW :;,248,l:i!=K+l:NEXT t 

1260 x=30:F0R t=l TO 12:PL0T x,104, -JO 

2:DRAW x, 24B, 2: k=k+40:NEXT t 

1270 x=20:G0SUB 1280:x=60:G0SUB 128 >UX 

0:x=140:60SUB 1280:x=180:G0SUB 1280 

:x=220:G0SUB 12B0:x=3O0:GOSUB 1280: 

:<=340:G0SUB 1280: x=420:G0SUB 1280:» 

=46O:G0SUB 12B0:G0T0 1290 

1280 FOR i=l TO 20:PL0T x,160,2:DRA >LC 

W x,24S,2ix=x+llNECT i:RETURN 

1290 y=152:yy=192:x=512:G0SUB 1440: >RC 

x=524:GOSUB 1440:x=572:60SUB 1440:x 

=600:60SUB 1440 

1300 y=160:x=532:G0SUB 1440:x=544:G >MH 

OSUB 1440 

1310 yy=184:x=580:60SUB 1440 ,WJ 

1320 yy=168:s=552:G0SUB 1440:x=544: >GT 

GOSUB 1440:x=564:G0SUB 1440: ;<=592: B 

OSUB 1440 

1330 y=176:yy=184:x=552:G0SUE 1440: >RY 

x=544:60SUB 1440:x=564:G0SUB 1440:x 

=592:G0SUB 1440 

1340 x=500:G0SUB 1480:x=512:G0SUB 1 >FP 

480 

1350 FOR i=0 TO 3:PL0T 564+1, 168: DR >KE 

AW 552*1, !76:PL0T 620+1, 152: DRAW 60 

0+i,192:NEXT i 

1360 y=152:x=536:G0SUB 1470:>;=556:G >HJ 

OSUB 1470: x=5B4: GOSUB 1470 

1370 y=!84::<=564: GOSUB 1470:x=592:G >MM 

OSUB 1470 

1380 y=152:x=540:G0SUB 1460:x=560:G >HB 

OSUB 1460: x=58B: GOSUB 1460 

1390 y=184:x=552:G0SUB 1460:x=5B0:G >HF 

OSUB 1460 

1400 y=152:s=536:G0SUB 1450:x=556:G >GF 

OSUB 1450:x=584:60SUB 1450 

1410 y=188:x=556:GOSUB 1450:x=5B4:G M 

OSUB 1450 

1420 y=166:x=604: GOSUB 1450 >VR / 

1430 GOTO 1490 >MK 

1440 FOR i=l TO 4:PL0T x,y,l:DRAW x >FE 

,yy:x-x+l:NEXT i: RETURN 

1450 FOR 1=1 TO B:PL0T x,y:DRAW x,y >DY 

+4:x=x+l:NEXT i: RETURN 

1460 FOR i=l TO 4:PL0T x,y:DRAW x+4 >6B . 

,y+8:x=x+l:NEXT i: RETURN ' 

1470 FOR i=l TO 4:PL0T x,y:DRAW x-4 >GE 

,y+B:x=x+l:NEXT i:RETURN 

1480 FOR i=l TO 4:PL0T x,152:DRAW x >JP 

+12,192:x=x+l:NEXT i : RETURN 

1490 PEN 3:L0CATE 32,6: PRINT'C" : :PE >AA 

N 1:PRINT":CHARGER" 

1500 PEN 3:L0CATE 32,8:PRINT"V";:PE >ZY 

N 1:PRINT":SAUVER" 

1510 PEN 3:L0CATE 32, U:PRINT"B"i:P >BU 

EN 1:PRINT":E:0UTER" 
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1520 PEN 3:L0CATE 1 . 21 : PRINT"I " ; :PE 

N 1:PRINT":ENRIEI5TRER" 

1530 PEN 3:L0CATE 1,23iPRIMT*X"; :PE 

N !:PRINT":INITIflLISER" 
1540 PEN 3:L0CATE 1.25:PRINT"h"'::PE 
N 1:PRINT":S0RTIR" 
1550 LOCATE 16,23:PRINT"N0TE":L0CAT 
E 16,24:PRINT"ACTUELLE" 
1560 PEN tsLOCATE 35, 17:PRINT "PAR" 
;:LOCATE 32,19:PRINT "CHIEU"; :LOCAT 
E 32,20:PRINT "HANMfiING": :LOCflTE 32 
,22:PRINT "COPYRIGHT" ;:LXATE 32,24 
:PRINT CHRSU64)*" 03/19B8"; 
1570 60SUB 1580:60TO 1610 
1580 note.j=0:notel=500:DIM note$(no 
tel) , durée (noteli , volu(notel), envol 
notel),ento(notel):envo=0:ento=0:oc 
ta=5:volu=10:duree=20:enri=0 
1590 LOCATE 1,1: PEN 3:PRINT " 0";:P 
EN 1:PRINT " NOTES JOUEES"; : LQCftT 
E 1,3:PEN 3:PRINT notel::PEN 1;PRIN 
T 'NOTES LIBRES";; LOCATE 24,1;PRINT 
"V;";:PEN 3:PRINT " 0"; 
1600 LOCATE 24,3:PEN 1:PRINT "T:";: 
PEN 3:PRINT " 0";:LOCATE 32,1:PEN I 
:PRINT "OCT:";:PEN 3;PRINT " 3";;L0 
CATE 32,3:PEN 1:PRINT "VOL:";:PEN 3 
tPRINT " 8";:L0CATE !6,21:PEN 1;PRI 
NT "DUREE: ";:PEN 3:PRINT " 20";:RET 
URN 

1610 PEN 3 

1620 IF INKEYI69>=0 THEN GOSUB 2170 
:IF enn=l THEN GOSUB 2640 
1630 IF INKEY(47)=0 THEN GOSUB 2590 
:IF enn=l THEN GOSUB 2640 
1640 IF INKEY (591=0 THEN GOSUB 2190 
:IF enn=l THEN GOSUB 2640 
1650 IF INKEYI60i=0 THEN GOSUB 2210 
:IF enri=l THEN GOSUB 2640 
1660 IF INKEY(58)=0 THEN BOSUB 2230 
:IF enri=l THEN GOSUB 2640 
1670 IF INKEY(61)=0 THEN GOSUB 2250 
:IF enri=l THEN GOSUB 2640 
16B0 IF INKEY(53)=0 THEN GOSUB 2270 
:IF enri=l THEN GOSUB 2640 
1690 IF INKEY!51)=0 THEN GOSUB 2290 
:IF enn=l THEN GOSUB 2640 
1700 IF 1NKEY(52)=0 THEN GOSUB 2310 
:IF enri=l THEN GOSUB 2640 
1710 IF INKEY(43)=0 THEN GOSUB 2330 
:IF enri=l THEN 60SUB 2640 
1720 IF INKEY(44)=0 THEN GOSUB 2350 
:IF enri=l THEN GOSUB 2640 
1730 IF INKEY (421=0 THEN GOSUB 2370 
:IF enri=l THEN GOSUB 2640 
1740 IF INKEYI45)=0 THEN GOSUB 2390 
:IF enri=l THEN GOSUB 2640 



1750 IF INKEY (37! =0 THEN GOSUB 2410 >EE 

:IF enri=l THEN GOSUB 2640 

1760 IF INKEY (341=0 THEN GOSUB 2430 :>EE 

:IF enri=i THEN GOSUB 2640 

1770 IF INKEY (36) =0 THEN GOSUB 2450 >EK 

:IF enn=l THEN GOSUB 2640 

1780 IF INKEY(27)=0 THEN GOSUB 2470 :>EN 

;IF enri=l THEN GOSUB 2640 

1790 IF INKEY (29) =0 THEN GOSUB 2490 >EU 

:IF enri=l THEN GOSUB 2640 

1800 IF INKEY (281=0 THEN GOSUB 2510 >EB 

:IF enri=l THEN GOSUB 2640 

1810 IF INKEY (261=0 THEN GOSUB 2530 >EC 

:IF enri=l THEN GOSUB 2640 

1820 IF INKEY(19)=0 THEN GOSUB 2550 >EH 

:IF enn=l THEN GOSUB 2640 

1830 IF INKEY(17)=û THEN GOSUB 2570 >EJ 

:IF enn=l THEN GOSUB 2640 

1840 IF INKEY (641=0 THEN envo=l:LOC ;HA 

ATE 26,1:PEN 3:PRINT envo; 

1850 IF INKEV(65i=0 THEN envo=2:L0C >HD 

ATE 26,1:PEN 3:PRINT envo; 

1860 IF INKEY(57)=0 THEN envo=3:L0C >HG 

ATE 26,1:PEN 3:PRINT envo; 

1870 IF INKEY(56I=0 THEN envo=4;L0C >HH 

ATE 26,1:PEN 3:PRINT envo; 

1880 IF INKEY(49)=0 THEN envo=5:L0C >HN 

ATE 26,1:PEN 3:PRINT envoi 

1890 IF INKEY(48)=û THEN envo=6:L0C >HN 

ATE 26,1:PEN 3:PRINT envo; 

1900 IF INKEY(41)=0 THEN envo=7:L0C >GG 

ATE 26,1:PEN 3:PRINT envo; 

1910 IF INKEY(4Û)=0 THEN envo=8:L0C >GH 

ATE 26.1:PEN 3:PRINT envo; 

1920 IF INKEY!33)=0 THEN envo=9:L0C >HD 

ATE 26,1:PEN 3:PRTNT envo; 

1930 IF INKEY(32)=0 THEN envo=0:LOC >GC 

ATE 26,1:PEN 3:PRINT envo; 

1940 IF INKEY(13)=0 THEN ento=l:LOC >GB 

ATE 26,3:PEN 3:PRINT ento; 

1950 IF INKEY ( 14) =0 THEN ento=2:L0C >GE 

ATE 26,3:PEN 3:PRINT ento; 

1960 IF INKEY(5)=0 THEN ento=3:L0CA >FC 

TE 26,3:PEN 3:PRINT ento; 

1970 IF INKEY(20)=0 THEN ento=4:L0C >GF 

ATE 26,3:PEN 3:PRINT ento; 

1980 IF INKEY(12)=0 THEN ento=5:LDC >HA 

ATE 26,3:PEN 3:PRINT ento; 

1990 IF INKEY(4)=0 THEN ento=6:L0CA >FH 

TE 26, 3: PEN 3:PRINT ento; 

2000 IF INKEY(10i=0 THEN ento=7:L0C >GR 

ATE 26,3:PEN 3:PR'INT ento; 

2010 IF INKEYU1)=0 THEN ento=B:L0C >GV 

ATE 26,3:PEN 3:PRINT ento; 

2020 IF INKEY(3)=0 THEN ento=9:L0CA >FU 

TE 26,3:PEN 3:PRINT ento; 

2030 IF INKEY(15)=0 THEN ento=0:LOC >GT 
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ATE 26.3:PEN 3:PRINT ento; 

2040 IF INKEY<24)=0 THEN octa=octa* >VP 

1 : IF octa;-6 THEN octa=6 ELSE LOCATE 

36,1:PRINT octa-2; 

2050 IF INKEY(25)=0 THEN octa=octa- >VD 
1: IF octa<0 THEN octa=0 ELSE LOCATE 

36,I:PRINT octa-2; 

2060 IF INKEY I79>=0 THEN volu=volu+ >ZD 
1: IF volu>15 THEN voiii=15 ELSE LOCA 
TE 36,3;PRINT volu-2; 
2070 IF INKEY(16)=0 THEN volu=voUr »1Q 
1: IF volu<3 THEN volu=3 ELSE LOCATE 

36,3:PRINT volu-2; 
2080 IF INKEY (311=0 THEN duree=dure >HU 
e+l:IF duree/100 THEN duree=100 EL5 
E LOCATE 22,21:PRINT durée: 
2090 IF INKEY (391=0 THEN duree=dure >CV 
e-l:IF duree<l THEN duree=! ELSE LO 
CATE 22,21:PRINT durée; 
2100 IF INKEY(71)=0 THEN enri=enn* >EA 
1: IF enri=2 OR notej=notel THEN enr 
i=0:en=0:GOSUB 2670 ELSE en=3:G0SUB 

2670 
2110 IF INKEY(54)=0 THEN SOSUB 2700 ;BB 

2120 IF INKEY (631=0 THEN ERASE note BY 
î, durée. volu, envo, ento: en=0: GOSUB 2 
670: GOTO 1570 
2130 IF INKEY (551=0 THEN GOSUB 2770 >B« 

2140 IF INKEY(62)=0 THEN GOSUB 3350 >BF 



EC 



2150 IF INKEY(38I=0 THEN PEN 3:L0CA 
TE.2,6:PRINT "SORTIR"; :GOSUB 3310:G 
OTO 3540 

2160 GOTO 1610 -ME 

2170 IF octa=0 THEN son«="3822" ELS ' AR 
E IF octa=l THEN son*="1911" ELSE I 
F octa=2 THEN 5on$="956 " ELSE IF o 
cta=3 THEN 5on»="478 " ELSE IF octa 
=4 THEN son$="239 " ELSE IF octa=5 
THEN son*="119 " ELSE sont="60 " 
2180 GOSUB 2600: GOSUB 2630:LXATE 2 >GY 
5,23:PRINT "DO ";:RETURN 
2190 IF octa=0 THEN son»="360B" EL! 
E IF octa=l THEN 5on«="1804" ELSE I 
F octa=2 THEN son$="902 " ELSE IF o 
cta=3 THEN son«="451 " ELSE IF octa 
=4 THEN 5on*="225 " ELSE IF octa=5 
THEN 5on*="113 " ELSE son$="56 " 
2200 SOSUB 2600: GOSUB 2630: LOCATE 2 
5,23:PRTNT "D0« ";:RETU(!N 
2210 IF octa=0 THEN son*="3405" ELS >A6 
E IF octa=l THEN son»="1703" ELSE I 
F octa=2 THEN son«="B51 " ELSE IF o 
cta=3 THEN son*="426 " ELSE IF octa 
=4 THEN son»="213 " ELSE IF octa=5 



H» 



GU 




THEN son«="106 " ELSE 5on$="53 " 
2220 GOSUB 2600:60918 2630:LXATE 2 
5,23:PRINT "RE ";:RETURN 
2230 IF octa=0 THEN son$="3214" ELS 
E IF octa=l THEN 5on*="1607" ELSE I 
F octa=2 THEN 5on$="804 " ELSE IF o 
cta=3 THEN 5on$="402 " ELSE IF octa 
=4 THEN son*="201 " ELSE IF octa=5 
THEN BOl*="100 " ELSE son$="50 " 
2240 GOSUB 2600:GOSUB 2630:L0CATE 2 
5,23:FRINT "Mb ";:RETURN 
2250 IF octa=0 THEN son*="3034" ELS 
E IF octa=l THEN son*="1517" ELSE I 
F octâ=2 THEN son$="758 " ELSE IF o 
cta=3 THEN son«="379 " ELSE IF octa 
=4 THEN son*="190 " ELSE IF octa=5 
THEN son$="95 ■ ELSE sont="47 " 
2260 SOSUB 260O:G0SUB 2630: LOCATE 2 
5,23:PRINT "M ";:RETURN 
2270 IF octa=0 THEN son«="2863" ELS 
E IF octa=l THEN son*="1432" ELSE I 
F DCta=2 THEN son*="716 " ELSE IF o 
cta=3 THEN son*="35B " ELSE IF octa 
=4 THEN son$="179 " ELSE IF octa=5 
THEN son*="89 " ELSE 5on*="45 " 
2280 SOSUB 2600: GOSUB 2630: LOCATE 2 
5,23:PRINT "FA' ";:RETURN 
2290 IF octa=0 THEN 5on$="2703" ELS 
E IF octa=l THEN son«="1351" ELSE I 
F octa=2 THEN son*="676 " ELSE IF a 
cta=3 THEN son$="33B " ELSE IF octa 
=4 THEN son$="169 " ELSE IF octa=5 
THEN 5on*="84 " ELSE 5on*="42 " 
2300 GOSUB 2600: GOSUB 2630:LOCATE 2 
5,23:PRINT "FA# "itRETURN 
2310 IF octa=0 THEN son*="2551" ELS 
E IF octa=l THEN son«="1276" ELSE I 
F octa=2 THEN 50n*="638 " ELSE IF o 
cta=3 THEN son*="319 " ELSE IF octa 
=4 THEN son«="159 " ELSE IF octa=5 
THEN 5On«="80 " ELSE sont="40 " 
2320 60SUB 2600: GOSUB 2630:L0CATE 2 
5,23:PRINT "SOL ";:RETURN 
2330 IF octa=0 THEN son*="2408" ELS 
E IF octa=l THEN son«="1204" ELSE I 
F octa=2 THEN son«="602 " ELSE IF o 
cta=3 THEN 50ft$="301 " ELSE IF octa 
=4 THEN 5on»="150 " ELSE IF octa=5 
THEN sonS="75 " ELSE 5ont="3B " 
2340 GOSUB 2600:60SUB 2630:L0CATE 2 
5,23:PRINT " SOL»";: RETURN 
2350 IF octa=0 THEN 5on*="2273" ELS 
E IF octa=l THEN son$="1136" ELSE I 
F octa=2 THEN 5on*="568 " ELSE IF o 
cta=3 THEN son*="284 " ELSE IF octa 
=4 THEN 5Dn$="I42 " ELSE IF octa=5 
THEN son«="71 " ELSE son$="36 " 



AF 



2360 GOSUB 26O0:6OSUB 2630: LQCflTE 2 
5,23:PRINT "LA ";:RETURN 
2370 IF octa«0 THEN »*"2145" ELS 
E IF octa=l THEN torrt"*R73" ELSE I 
F octa=2 THEN son*="536 " ELSE IF o 
cta=3 THEN 50fl»="268 " ELSE IF octa 
=4 THEN son$="134 " ELSE IF octa=5 
THEN son$="67 " ELSE son$="34 " 
2380 GOSUB 2600: GOSUB 2630:L0CATE 2 
5,23:PRINT "SIb ";:RETURN 
2390 IF octa=0 THEN son$="2025" ELS 
E IF octa=l THEN son»="1012" ELSE I 
F octa=2 THEN son*="506 " ELSE IF o 
cta=3 THEN son»="253 " ELSE IF octa 
=4 THEN son»="127 " ELSE IF octa=5 
THEN 50n*="63 " ELSE son$="32 " 
2400 GOSUB 2600: GOSUB 2630:LOCATE 2 
5,23:PRINT "SI ";:RETURN 
2410 IF octa=0 THEN son$="1911" ELS 
E IF octa=l THEN son«="956 " ELSE I 
F octa=2 THEN son*="47B " ELSE IF o 
cta=3 THEN son*="239 " ELSE IF octa 
=4 THEN 5on*="119 " ELSE IF octa=5 
THEN son*="40 " ELSE son*="30 " 
2420 GOSUB 2600:60SUB 2630: LOCATE 2 
5,23:PRINT "DO ";:RETURN 
2430 IF octa=0 THEN son»="1804" ELS 
E IF octa=l THEN son$="902 " ELSE I 
F octa=2 THEN son«='«l " ELSE IF o 
cta=3 THEN 5on*="225 " ELSE IF octa 
=4 THEN son»="113 " ELSE IF octa=5 
THEN son«="56 " ELSE son$="2B " 
2440 GOSUB 2600:S0GUB 2630:LXATE 2 
5,23:PRINT "D0# ";:RETURN 
2450 IF octa=0 THEN 5on*="1703" ELS 
E IF octa=l THEN 5on*="851 " ELSE I 
F octa=2 THEN son*="426 " ELSE IF o 
cta=3 THEN 5on»="213 " ELSE IF octa 
=4 THEN son*="106 " ELSE IF octa=5 
THEN son*="53 " ELSE son*="27 " 
2460 GOSUB 2600: GOSUB 2630: LOCATE 2 
5,23:PRINT "RE ";:RETURN 
2470 IF octa=0 THEN son«="1607" ELS 
E IF octa=l THEN 5on»="B04 " ELSE I 
F octa=2 THEN son»="402 " ELSE IF o 
cta=3 THEN son$="201 " ELSE IF octa 
=4 THEN son*="100 " ELSE IF octa=5 
THEN son*="50 " ELSE 5onf="25 " 
2480 GOSUB 260O:GOSUB 2630:L0CATE 2 
5,23:PRINT "Mlb "i:RETURN 
2490 IF octa=0 THEN son$="1517" ELS 
E IF octa=l THEN son*="758 " ELSE I 
F octa=2 THEN son$="379 " ELSE IF o 
cta=3 THEN son*="190 " ELSE IF octa 
=4 THEN son$="95 " ELSE IF octa=5 
THEN 5on«="47 " ELSE son*="24 " 
2500 SOSUB 2600:B0SUB 2630:LXATE 2 

33 



m 



5,23:PRINT "fil "::RETURN 

2510 IF octa=0 THEN son«="1432" ELS >ZK 

E IF octa=l THEN son»="7l6 " ELSE I 

F octa=2 THEN 5on*="35B " ELSE IF o 

cta=3 THEN son*="179 " ELSE IF octa 

=4 THEN son»="89 " ELSE IF octa=5 

THEN 5on$="45 " ELSE son$="22 " 

2520 GOSUB 2600:G0SUB 2630:L0CATE 2 >GH 

5,23:PRINT "FA "::RETURN 

2530 IF octa=0 THEN 30n*«"1351" EL5 >ZC 

E IF octa=l THEN son$="63B " ELSE ! 

F octa=2 THEN son«="338 " ELSE IF o 

cta=3 THEN son*="l69 " ELSE IF octa 

=4 THEN son$="84 " ELSE IF octa=5 

THEN 5Dnt="42 " ELSE 5on»="21 " 

2540 GOSUB 2600:60SUB 2630:L0CATE 2 >GN 

5,23:PRINT "FA# " ; : RETURN 

2550 IF octa=0 THEN 5on»="1276" ELS >ZR 

E IF octa=l THEN son*="602 " ELSE I 

F octa=2 THEN 5on*="319 " ELSE IF o 

cta=3 THEN son»="159 " ELSE IF octa 

=4 THEN son$="80 " ELSE IF octa=5 

THEN son*="40 " ELSE son*="20 " 

2560 GOSUB 2600: GOSUB 2630: LOCATE 2 >SP 

5,23:PRINT "SOL ";:RETURN 

2570 IF octa=0 THEN son$="1204" ELS >2X 

E IF octa=l THEN 5on$="568 " ELSE I 

F octa=2 THEN 5on*="301 " ELSE IF o 

cta=3 THEN son*="150 " ELSE IF octa 

=4 THEN son«="75 " ELSE IF octa=5 

THEN son*="3B " ELSE 5onl="19 " 

2580 GOSUB 2600: GOSUB 2630: LOCATE 2 >GV 

5,23:F'RINT "SOL»":: RETURN 

2590 son*="0 ":G0SUB 2600:G0SUB 2 >X« 

630:LOCATE 25,23:PRINT "BLAN"::RETU 

RN 

2600 son=VAL(5on») >NF 

2610 IF son=0 THEN SOUND 4,0, durée, >ND 

0,envo,ento: SOUND 1,0, durée, 0,envo, 

ento:S0UND 2,0, durée, 0,envo,ento:RE 

TURN 

2620 SOUND 4,son,duree,volu,envo,en >KR 

to: SOUND l,son-l, durée, volu-2,envo, 

ento: SOUND 2,son+l,duree,volu-l,env 

o,ento:RETURN 

2630 LOCATE 25,24:PRINT 5on«;:RETUR >FZ 

N 

2640 notei=notej+l:IF notej=notel+l >PB 

THEN notej=notej-l:G0T0 2680 
2650 note*(notej)=son$:duree(notej! >QE 
=duree:volu(notej)=volu:envo(notej) 
=envo: ento (note jl=ento 
2660 LOCATE 1,1:PRINT notej::L0CATE >TH 

1,3:PRINT notel-notei;:RETURN 
2670 PLOT 304, 392, en: DRAW 336,392:0 >JR 
RAW 336,380:DRA« 332,388:DRA« 312,3 
88:DRA« 312,374:DRAN 328,372:DRA« 3 



12, 370: DRAW 312,356:DRAW 332,356:1» 
AU 336,364:DRAW 336,352:DRAW 304,35 
2: DRAW 308,354: DRAW 308, 388: DRAW 30 
4,392:RETURN 

26B0 PEN hLOCATE 2,6:PRINT "Plus d >YD 
e place, mec ! ";CWÎ«<7) ; :LÛCATE 2,8 
:PRINT "Appuyé sur 'ZI^WHILE INKEV ; 
(71 ><>0:WEND: GOSUB 2690:en=0:60SUB 
2670:enri=0:G0T0 1610 
2690 FOR t=6 TO 8:LXATE 2,t:PRINT >FA 
SPACE«(29):NEXT tiRETURN 
2700 IF notej=0 THEN PEN 1:L0CATE 2 >KL 
,6:PRINT ".J'peux pas !";:LOCATE 2,B 
:PRINT "Aucune note en m"+CHR*(92>+ / 
"noire !"i:F0R t=l TO 2000;NEXT t:B 
OSUB 2690:60T0 1610 

2710 LXATE 2,6:PRINT "ECOUTER"; :G0 >ZU 
SUB 3310:G0SUB 2690 < 

2720 PEN 1:L0CATE 2,6:PRINT "Attent >JH 
ion les oreilles !"; 

2730 FOR t=l TO notei >PV 

2740 son*=note*(t):duree=duree(t):v >FJ 
olu=volu(t):envo=envo(t):ento=ento( 
t) 

2750 BOSUB 2600: NEXT t: GOSUB 2690 >AF 
2760 RETURN >FJ 

2770 IF noteja) THEN PEN 1:L0CATE 2 >6D 
,6:PRINT "J'peux pas !";:L0CATE 2,B 
:PRINT "Aucune note en •"♦CHR$(92)t / 
■moire !";:FQR x=l TO 2000:NEXT x:G 
OSUB 2690: RETURN 

2780 LXATE 2,6:PRINT "SAUVER";:GOS >YA 
UB 3310:G0SUB 2690 

2790 PEN hLOCATE 2,6:PRINT "Nom du >RV 
fichier: ";:LXATE 2,7:PRINT "(8 ca 
r. rnaxi.)"; 

2800 LOCATE 2,8:INPUT "",nom* >XF 
2810 IF 00»*=" THEN GOSUB 2690:RET >FX 
URN 

2820 IF LEN(nom«)>8 THEN PRINT CHR* >ET 
(7>::60SUB 2690: GOTO 2790 
2830 GOSUB 2690:PEN 1 : LOCflTE 2,6:PR >rB 
INT "ASCII ou BASIC ? (A/BP;! 
2840 IF INKEY(54)=0 THEN PRINT " Ba >TY 
sic":G0T0 3000 

2B50 IF INKEY(69)=0 THEN PRINT " As >TD 
cii":GOTO 2870 S 

2860 GOTO 2840 >NH 

2870 LOCATE 2,6:PRINT "Sauvegarde e >YZ 
n cours..."; 

2B80 nom$=no»*+".HUS - >QT 

2B90 OPENOUT " ! "+non* >PA 

2900 PRINT #9,notej >NC 

2910 FOR M TO notej >PV 

2920 PRINT #9,note»(t> >QU 

2930 PRINT #9,duree(t) >RQ 

2940 PRINT #9,volu(t) >0A 



2950 PRINT #9,«nvo<t) >QL 

2960 PRINT #9,entO(tt >QK 

2970 NEXT t I >XE 

2980 CLOSEOUT >ZK 

2990 LXATE 2,a:PRINT ■« !";:FOR t >VD 

=1 TO 1000:NEXT tiGOSUB 2690:S0T0 1 

610 

3000 LOCATE 2,6:PRINT "Sauvegarde e >YJ 

n cours... "; 

3010 nom«=nom*+".BAS" >PC 

3020 OPENOUT " ' "tnom* >PK 

3030 FOR t=l TO notej >PN 

3040 PRINT »9,t*10;"DATA"iVAL(note* >YX 

(t));",";duree(t);",";volu(t);",";e 

nvo(t);",";ento(t> 

3050 NEXT t >WE 

3060 l=notej*10+10 >MY 

3070 PRINT #9,1; "ENV 1,10,-15,0.5,3 >QC 

,5,12,15,-1,10" 

3080 PRINT #9,1+10;"ENV 2,15,1,1,15 >QA 

,10,15,1,-1,12" 

3090 PRINT #9,1*20; "ENV 3,20,15,1,5 >TC 

,-10,40,5,13,15" 

3100 PRINT #9, 1+30; "ENV 4,10,2,15,1 >PX 

0,-1,2,30,3,5" 

3110 PRINT #9, 1+40; "ENV 5,10,1,5,15 >GB 

,-1,1" 

3120 PRINT #9,1+50; "ENV 6,15,3,1,1, >GH 

-1,15" 

3130 PRINT #9, 1+60; "ENV 7,5,-30,1,1 >RB 

5,-10,20,5,1,10" 

3140 PRINT #9, 1+70; "ENV 8,1,3,15,13 >HG 

,-1,15" 

3150 PRINT #9,1+B0;"ENV 9,15,35,1.5 >RU 

,8,-10,5,1,5,1" 

3160 PRINT #9,1+90;"ENT 1,2,-15,0.5 >TB 

,5,-15,10,1,-1,5" 

3170 PRINT #9,1+100;"ENT 2,15,-20,1 >NP 

5,5,-15,10" 

31B0 PRINT #9,1+110; "ENT 3,1,3,10,1 >QX 

5,1,1,50,-1,30" 

3190 PRINT #9,1+120;"ENT 4,10,-2,15 >KZ 

,10,-1,5" 

3200 PRINT #9,1+130; "ENT 5,1,15,1,1 >PC 

,15,10,6,-5,1* 

3210 PRINT #9, 1+140; "ENT 6,1,12,1,1 >JE 

5,-10,1" 

3220 PRINT #9, 1+150; "ENT 7,1,30,1,5 >R6 

0,5,10,5,-15,20" 

3230 PRINT #9, 1+160; "ENT 8,30,-1,8, >QG 

13,4,5,10,-1, 1" 

3240 PRINT #9,1+170;"ENT 9,1,-50,1, >UF 

15,1,15,20,-15,5" 

3250 PRINT #9,1+180;"F0R t=l TO";no >GU 

tej 

3260 PRINT #9,1+190;"READ note,dure >GB 

e.volu.envo.ento" 



3270 PRINT #9, 1+200; "SOUND 4,note,d >JZ 

uree,volu,envo,ento:SOUND l,note-l, 

duree,volu-2,envo,ento:S0UND 2,note ' 

+1, durée, volu-l,envo, en to" 

32B0 PRINT #9, 1+210; "NEXT t" >WW/ 

3290 CLOSEOUT >ZE 

3300 LXATE 2,8:PRINT "OK !";:FOR t >VN 

=1 TO 1000: NEXT t: GOSUB 2690: GOTO 1 

610 

3310 PEN 1:LXATE 2,B:PRINT "T'es s >DX 

"+CHR$(64)+"r ? (O/NP; 

3320 IF UPPER*(INKEY«)="0" THEN PRI >LV 

NT " 0ui";:G0SUB 2690:RETURN 

3330 IF UPPER»(INKEY«)="N" THEN PRI >NF 

NT " Non";:GOSUB 2690:GOT0 1610 

3340 GOTO 3320 >Hf 

3350 LXATE 2,6:PRINT "CHARGER"; :G0 >ZH 

SUB 3310:G0SUB 2690 

3360 LXATE 2,6:PRINT "Nom du <ichi >NZ 

er:"; 

3370 LOCATE 2,7:PRINT "(B car. maxi >HK 

.): 

3380 LOCATE 2,8:INPUT "".non* >XK 

3390 IF nom«="" THEN GOSUB 2690:R£T >FB 

URN 

3400 IF LEN(nom«)>8 THEN PRINT CHR» ;-EF 

(7);:G0SUB 2690:60T0 3360 

3410 GOSUB 2690:PEN hLOCATE 2,6:PR >UZ 

INT "Chargement en cours..."; 

3420 nom*=nom»+".HUS" >QH 

3430 OPENIN "!"+nom« >NX 

3440 INPUT #9,notej >NF 

3450 FOR t=l TO notej >PV 

3460 INPUT #9,note*(t) >QX 

3470 INPUT #9,0ureelt) >RU 

34B0 INPUT #9,volu(t) >QD 

3490 INPUT #9,envo(t) >QP 

3500 INPUT #9,ento(t) >QD 

3510 NEXT t >NF 

3520 CLOSEIN >MA 

3530 LXATE 2, B: PRINT "OK '";:FOR t >KL 

=1 TO 1000: NEXT t: GOSUB 2690: PEN 3: 

LXATE 1,1:PRINT notej;:LXATE 1,3: 

PRINT notel-notej;:PEN 1:G0T0 1610 

3540 GOSUB 2690:PEN hLOCATE 2,6:PR >KH 

INT "BASIC ou CP/H ? (B/C)"i 

3550 IF INKEY(54)=0 THEN PRINT " Ba >CH 

sic":GOSUB 35B0:CALL 

3560 IF INKEY(62I=0 THEN PRINT " CP >ZF 

/M":GOSUB 3580:ùCPM 

3570 GOTO 3550 >NF 

3580 PEN 3:L0CATE 2,8:PRINT "Au rev >VN 

oir et "+CHR«(59)+" bientôt !"; 

3590 FOR t=l TO 1000: NEXT t >UQ 

3600 FOR t=400 TO STEP -2:PL0T 0, >KW 

t,INTIRND»4):DRAW640,t:NEXT t 

3610 RETURN >FD« 
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GRAND 
CONCOURS 
PERMANENT : 




INFORMATIQUE 
COMMUNICATION 

dialogue mm mm 

Nous venons d'apporter de nouvelles modifications à notre serveur. 

Désormais, CHRISTOPHE est à votre disposition tous les jours pour le dialogue. 

Vous pouvez poser vos questions en direct. 



De nouvelles rubriques arrivent ! 



TOUTES NOS REVUES 



Savoir comment nous joindre, les sommaires, 
les infos... 



QUESTIONS-REPONSES 



Une nouvelle façon de poser les questions et de 
voir les réponses faites ! 



500 PETITES ANNONCES 



C'est en moyenne ce que vous trouvez sur le ser- 
veur. De quoi faire votre choix ! 



BOITE AUX LETTRES 



Une manière de correspondre entre vous ou de 
nous laisser des messages. Nos BAL : SORACOM - 
ARCADES - AMSTAR - PCOMPATIBLE - MEGAHERTZ 
CPC REDACT - ASTROLOGIE P. 



Christophe en direct tous les Jours avec vous I 



REVENDEURS 



Certains revendeurs français disposent d'un accès 
gratuit pour leurs promotions. 



NOS PRODUITS 



La rubrique sur nos productions avec la possibilité de 
commander 



BRETAGNE EDIT PRESS 



Désormais vous trouverez sur le serveur les nouveautés 
diffusées par cette société. 



HOROSCOPE 



l'horoscope 1988 mais aussi depuis peu le mensuel du 
15au 15dumob. 



Au téléphone, 15 minutes coûtent en moyenne 55 francs. 
Por minitel. Il vous en coûte pour le même temps 15 francs. 

LE BON CHOIX 3615 MHZ 
NOUVELLE VERSION 



